home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Wordworth / Install-Ww5SE < prev    next >
Text File  |  1994-07-06  |  78KB  |  3,085 lines
  1. ; $VER: Digita Wordworth 5SE  12/02/96 (English declarations)
  2. ; ©Copyright 1996 Digita International
  3.  
  4. (complete 0)
  5.  
  6. (set #ProductName "Wordworth 5")
  7. (set #ProductVersion "Special Edition")
  8.  
  9. ; ### VARIABLES
  10. ;** The amount of space needed on the hard disk to install
  11.     (set FullHDSpace 3)
  12.     (set FullHDLibsSpace 100000)
  13.     (set Language "English")              ; variable for catalog language
  14.  
  15. ;** Various
  16.     (set FloppyFinished 0)
  17.  
  18.  
  19. ; ### INSTALL DISK NAMES
  20. (set NumberInstallDisks 3)
  21. (set #Install1Disk "Ww5SEInstall-1")
  22. (set #Install2Disk "Ww5SEInstall-2")
  23. (set #Install3Disk "Ww5SEInstall-3")
  24.  
  25. ;** Archive Names and size of files on DISK 1
  26. (set #WordworthSourceName
  27.     (cat #Install1Disk ":Archive/Wordworth.lha"))
  28. (set #WwFiles1SourceName
  29.     (cat #Install1Disk ":Archive/WwFiles1.lha"))
  30. (set #WwFiles3SourceName
  31.     (cat #Install1Disk ":Archive/WwFiles3.lha"))
  32. (set #CatalogsSourceName
  33.     (cat #Install1Disk ":Archive/Catalogs.lha"))
  34.  
  35. (set #BootDiskFiles
  36.     (cat #Install1Disk ":Archive/Boot"))
  37. (set #SystemFontsSourceName
  38.     (cat #Install1Disk ":Archive/Fonts.lha"))
  39. ;(set #PrefsSourceName
  40. ;    (cat #Install1Disk ":Archive/Prefs.lha"))
  41. (set #AmigaGuideSourceName
  42.     (cat #Install1Disk ":Archive/AmigaGuide.lha"))
  43. (set #ASLSourceName
  44.     (cat #Install1Disk ":Archive/asl.lha"))
  45. (set #DiskFontSourceName
  46.     (cat #Install1Disk ":Archive/diskfont.lha"))
  47.  
  48. (set #FontType1SourceName
  49.     (cat #Install1Disk ":Archive/IFOnly.lha"))
  50.  
  51. (set #ModuleOption1SourceName
  52.     (cat #Install1Disk ":Archive/Draw.lha"))
  53. (set #ModuleOption2SourceName
  54.     (cat #Install1Disk ":Archive/Picture.lha"))
  55. (set #ModuleOption3SourceName
  56.     (cat #Install1Disk ":Archive/TextFX.lha"))
  57.  
  58.  
  59. ;** Archive Names and size of files on DISK 2
  60. (set #WwProgSourceName
  61.     (cat #Install2Disk ":Archive/WwProg.lha"))
  62. (set #WwFiles2SourceName
  63.     (cat #Install2Disk ":Archive/WwFiles2.lha"))
  64.  
  65. (set #IntelliSourceName
  66.     (cat #Install2Disk ":Archive/Intelli.lha"))
  67. (set #UFSTSourceName
  68.     (cat #Install2Disk ":Archive/UFST.lha"))
  69. (set #FloppyOtagsSourceName
  70.     (cat #Install2Disk ":Archive/OTAGS.lha"))
  71.  
  72. (set #CustomExtras1SourceName
  73.     (cat #Install2Disk ":Archive/Tutorials.lha"))
  74. (set #CustomExtras2SourceName
  75.     (cat #Install2Disk ":Archive/Templates.lha"))
  76. (set #CustomExtras3SourceName
  77.     (cat #Install1Disk ":Archive/Clipart.lha"))
  78.  
  79. (set #WwToolsSourceName
  80.     (cat #Install2Disk ":Archive/WwTools.lha"))
  81. (set #WwHelpSourceName
  82.     (cat #Install3Disk ":Archive/WwHelp.lha"))
  83.  
  84. (set #FiltersSourceName
  85.     (cat #Install2Disk ":Archive/Filters.lha"))
  86. (set #GfxFilter1SourceName
  87.     (cat #Install2Disk ":Archive/CGM.lha"))
  88.  
  89.  
  90. ;** Archive Names and size of files on DISK 3
  91. (set #DictionarySourceName
  92.     (cat #Install3Disk ":Archive/Dictionary.lha"))
  93. (set #ThesaurusSourceName
  94.     (cat #Install3Disk ":Archive/Thesaurus.lha"))
  95. (set #Icons1SourceName
  96.     (cat #Install3Disk ":Archive/Icons1.lha"))
  97. (set #Icons2SourceName
  98.     (cat #Install3Disk ":Archive/Icons2.lha"))
  99.  
  100.  
  101. ;** Archive names
  102. (set #WordworthName "Wordworth.lha")
  103. (set #WwProgName "WwProg.lha")
  104. (set #WwFiles1Name "WwFiles1.lha")
  105. (set #WwFiles2Name "WwFiles2.lha")
  106. (set #WwFiles3Name "WwFiles3.lha")
  107. (set #AmigaGuideName "amigaguide.lha")
  108. (set #SystemFontsName "Fonts.lha")
  109. (set #ASLName "asl.lha")
  110. (set #DiskFontName "diskfont.lha")
  111. ;(set #PrefsName "Prefs.lha")
  112. (set #CatalogsName "Catalogs.lha")
  113. (set #WwHelpName "WwHelp.lha")
  114.  
  115. (set #ModuleOption1Name "Draw.lha")
  116. (set #ModuleOption2Name "Picture.lha")
  117. (set #ModuleOption3Name "TextFX.lha")
  118.  
  119. (set #IntelliName "Intelli.lha")
  120. (set #TrueTypeName "TrueType.lha")
  121. (set #WwToolsName "WwTools.lha")
  122. (set #UFSTName "UFST.lha")
  123. (set #FloppyOtagsName "OTAGS.lha")
  124. (set #FontType1Name "IFOnly.lha")
  125.  
  126. (set #IFlibraryName "DigitaIntellifont.library")
  127.  
  128. (set #FiltersName "Filters.lha")
  129. (set #FiltersFileName "wwfilter.library")
  130. (set #AmigaGuideLibraryName "amigaguide.library")
  131.  
  132. (set #GfxFilter1Name "CGM.lha")
  133.  
  134. (set #CustomExtras1Name "Tutorials.lha")
  135. (set #CustomExtras2Name "Templates.lha")
  136. (set #CustomExtras3Name "Clipart.lha")
  137.  
  138. (set #DictionaryName "Dictionary.lha")
  139. (set #ThesaurusName "Thesaurus.lha")
  140.  
  141. (set #Module1Name "Drawing Tools")       ;These are the filenames of the expanded modules
  142. (set #Module2Name "Picture")
  143. (set #Module3Name "TextEffects")
  144.  
  145.  
  146. ;** Disk Names
  147. (set #RamTempFile "RAM:WwTemp")
  148. (set #LibsDefault "Libs")
  149. (set #SystemFontsDest "Fonts")
  150.  
  151. (set #Font1Name "WW_STANDARD_Pica")
  152. (set #Font2Name "Condensed60.font")
  153. (set #Font3Name "newtopaz.font")
  154. (set #NumFonts 3)
  155.  
  156. (set #Parallel "Parallel")
  157. (set NumNewWwDisks 4)
  158. (set #NewWwDiskName    "Wordworth5SE")
  159. (set #NewWwSysDiskName "Ww5SESystem")
  160. (set #NewWwOutlinesDiskName "Ww5SEOutlines")
  161. (set #NewWwDictDiskName "Ww5SESpell")
  162.  
  163. ;** Envarc drawer and variable names
  164. (set #WwDrawerName "Wordworth")
  165. (set #WwFontsEnvName "WwFonts")
  166.  
  167. ;** HD Drawer Names
  168. (set #DrawerName "Wordworth5SE")
  169. (set #Wordworth2DrawerName "Wordworth2")
  170. (set #WordworthSEDrawerName "Wordworth")
  171.  
  172. (set #ModulesName "Modules")
  173. (set #ModDisName "Storage")
  174. (set #WwCatalogsName "Catalogs")
  175. (set #WwFilesDrawerName "WwFiles")
  176. (set #WwFiltersName "Filters")
  177. (set #WwPictureFiltersName "Pictures")
  178. (set #WwFontsName "WwFonts")
  179. (set #WwAgfaName "Intellifont")
  180. (set #WwPSName "PostScript")
  181. (set #WwTTName "TrueType")
  182. (set #WwUFSTName "UFST")
  183. (set #WwHDHelpName "Help")
  184. (set #DocsName "Documents")
  185. (set #TemplatesName "Templates")
  186. (set #ClipartName "ClipArt")
  187. (set #SpellName "Spell")
  188. (set #WwToolsDrawerName "WwTools")
  189. (set #BulletOutlinesDest "Fonts:_bullet_outlines")
  190. (set #LocaleName "Locale")
  191.  
  192. (set #WwDevsDest (cat #NewWwDiskName ":Devs"))
  193. (set #WwPrefsDest (cat #NewWwDiskName ":Prefs"))
  194. (set #WwEnvArcDest (cat #NewWwDiskName ":Prefs/Env-Archive"))
  195. (set #WwEnvArcSysDest (cat #NewWwDiskName ":Prefs/Env-Archive/sys"))
  196. (set #WwSDest (cat #NewWwDiskName ":s"))
  197.  
  198. (set #WwToolDest (cat #NewWwDiskname ":Wordworth"))
  199. (set #DocsTool "DOCS")
  200. (set #ClipartTool "CLIPART")
  201. (set #DeviceTool "DEVICE")
  202. (set #PicassoTool "PICASSO")
  203. (set #FiltersTool "FILTERS")
  204. (set #ModulesTool "MODULES")
  205. (set #HelpTool "HELP")
  206. (set #CatalogsTool "CATALOGS")
  207. (set #WwFilesTool "WWFILES")
  208. (set #WwSpellLibTool "WWSPELLLIB")
  209. (set #WwSystemTool "WWSYSTEM")
  210. (set #DocDefaultTool "Wordworth")
  211.  
  212. (set #OldUserDictName "User_Dictionary")
  213. (set #OldAutoCorrectName "AutoCorrect.txt")
  214. (set #TempUserDictName "User_Dictionary.Temp")
  215. (set #TempAutoCorrectName "AutoCorrect.txt.Temp")
  216.  
  217.  
  218. ; ### STRING DEFINITIONS
  219. ;** Various Strings
  220. (set #ProgName (cat (cat #ProductName " ") #ProductVersion))
  221.  
  222. (set #Welcome-Help
  223. (cat "\nIf you have any problems with installing, please use the "
  224.     "\"Help\" buttons on the installer and read the appropriate sections "
  225.     "of the manual.\nIf your problems persist, you can get Technical "
  226.     "Support as explained in your 'Wordworth Instruction Book'."
  227. ))
  228.  
  229. (set #BadKick
  230. (cat #ProgName " requires Workbench 2.04 or above to work correctly."
  231. ))
  232.  
  233. (set #BadASL
  234. (cat #ProgName " requires version 38 of the ASL library or above to work correctly."
  235. ))
  236.  
  237. (set #BadDiskFont
  238. (cat #ProgName " requires version 38 of the diskfont library or above to work correctly."
  239. ))
  240.  
  241. (set #BadASLandDiskFont
  242. (cat #ProgName " requires version 38 of the ASL library and version 38 of the "
  243.     "diskfont library or above to work correctly."
  244. ))
  245.  
  246. (set #ReBoot
  247. (cat "After this installation has finished please reset your computer "
  248.     "before running " #ProgName "."
  249. ))
  250.  
  251. (set #FloppyWorkingMsg
  252. (cat "\n\n\nPlease wait...\n\n" #ProgName " is being installed to your floppy disks."
  253. ))
  254.  
  255. (set #HardDiskWorkingMsg
  256. (cat "\n\n\nPlease wait...\n\n" #ProgName " is being installed to your hard disk."
  257. ))
  258.  
  259. (set #FormatWorkingMsg
  260. (cat "Please wait... Formatting a disk."
  261. ))
  262.  
  263. (set #FloppyFinishedMsg
  264. (cat "\nAfter clicking the 'Proceed' button, place the \"" #NewWwDiskName
  265.     "\" disk in the internal disk drive and reset your Amiga.\n"
  266. ))
  267.  
  268. (set #CheckStartup
  269. (cat "\n\n\nPlease wait...\n\nThe installer is just checking your system."
  270. ))
  271.  
  272. (set #DearchivingMsg
  273. (cat "\n\n\nPlease wait..."
  274. ))
  275.  
  276. (set #CreateDiskPrompt1 "\n\nDo you want to create the '")
  277. (set #CreateDiskPrompt2 "' disk?")
  278.  
  279. (set #ChoiceContinue "Yes")
  280.  
  281. (set #ChoiceSkip "Skip this part")
  282.  
  283. (set #CreateDiskHelp
  284.     (cat "\nIf you install " #ProgName " at the Expert level then you "
  285.         "are able to choose which disks to create. This is useful if for example your working " #NewWwDictDiskName
  286.     " disk became corrupted and you wanted to create another.\n\nIf you would like to create this disk "
  287.         "then click '" #ChoiceContinue "'.\nIf you do not want to create this disk then click '" #ChoiceSkip "'."
  288.     )
  289. )
  290.  
  291. ;** Disk Messages
  292. (set #FloppyBackupsMsg
  293. (cat "\nIMPORTANT\n\nThe installer will now create your " #ProgName 
  294.     " disks.\n\nTo keep disk changes to a minimum, if you "
  295.     "have more than one disk drive, place the newly created disks "
  296.     "('" #NewWwDiskName "' for example) into the internal disk "
  297.     "drive when prompted, and place the Wordworth install disks "
  298.     "(`" #Install1Disk "' for example) into the external disk drive."
  299. ))
  300.  
  301. (set #BlankDiskWarning
  302. (cat "\nPlease insert a 'blank' disk in the internal\n"
  303.     "disk drive and click \"Proceed\" when ready."
  304.     "\n\nWARNING: This procedure will destroy all information "
  305.     "that may already be on the disk."
  306. ))
  307.  
  308. (set #FloppyWarningHelp
  309. (cat     "\nThis procedure uses the 'format' command to "
  310.     "wipe and prepare the disk in the internal disk drive "
  311.     "for use with Wordworth."
  312.     "\n\nWrite-protect your master disks before making "
  313.     "backup copies and place the masters in a safe place."
  314.     "\n\nYou should also write-protect your backup disks "
  315.     "before clicking the \"Proceed\" button."
  316. ))
  317.  
  318. (set #NotBlankMsg1
  319. (cat "\nYou have the \""
  320. ))
  321.  
  322. (set #NotBlankMsg2
  323. (cat "\" disk in your internal disk drive.\n\nPlease "
  324.     "replace this disk with a blank one, before "
  325.     "clicking the \"Proceed\" button."
  326. ))
  327.  
  328. (set #FormatError
  329. (cat     "\nAn error occured when trying to format this disk.\n\n"
  330.     "Please ensure that the disk is in the disk drive "
  331.     "before you click the \"Proceed\" button or "
  332.     "put another disk in the drive and try again."
  333. ))
  334.  
  335. (set #FormatErrorHelp
  336. (cat "\nAn error has occured during the formatting of "
  337.     "your disk. This could be for many reasons, but more "
  338.     "commonly, either the disk was corrupt or the drive was "
  339.     "faulty.\nPlease try a different disk, check the drive "
  340.     "and then if the problem persists, contact the Technical "
  341.     "Support Department. Information on how to get Support is "
  342.     "explained in the manual."
  343. ))
  344.  
  345. (set #FormatCompleteMsg1
  346. (cat " created.\n\nPlease take out the disk "
  347.     "in the internal disk drive and label it \""
  348. ))
  349.  
  350. (set #FormatCompleteMsg2
  351. (cat "\", then click the \"Proceed\""
  352.     " button."
  353. ))
  354.  
  355. (set #FormatCompleteMsgLast
  356. (cat "\". Click the \"Proceed\" button to continue."
  357. ))
  358.  
  359. (set #InsertDiskMsg
  360. (cat "\nPlease insert the disk labelled\n\n"
  361. ))
  362.  
  363. ;** Install Stuff
  364. (set #DestChoicePrompt
  365. (cat "\n\n\nWhere would you like to install " #ProgName "?"
  366. ))
  367.  
  368. (set #DestChoicePrinterPrompt
  369. (cat "\n\n\nWhere have you installed " #ProgName "?"
  370. ))
  371.  
  372. (set #FloppyChoiceMsg
  373. (cat "On floppy disks"
  374. ))
  375.  
  376. (set #HardDiskChoiceMsg
  377. (cat "On a hard disk"
  378. ))
  379.  
  380. (set #DestChoiceHelp
  381. (cat "\nSelect the radio button \"On a hard disk\" to "
  382.     "install " #ProgName " onto your hard disk.\n\n"
  383.     "Select the radio button \"On floppy disks\" to "
  384.     "install " #ProgName " onto a set of backup disks.\n\n\n"
  385. ))
  386.  
  387. (set #DestChoicePrinterHelp
  388. (cat "\nSelect the radio button \"On a hard disk\" if "
  389.     "you installed " #ProgName " onto your hard disk.\n\n"
  390.     "Select the radio button \"On floppy disks\" if you "
  391.     "installed " #ProgName " onto a set of blank disks.\n\n\n"
  392. ))
  393.  
  394.  
  395. ;** Other strings
  396. (set #Unpackmsg1 "Unarchiving ")
  397. (set #Unpackmsg2 " to ")
  398. (set #Unpackmsg3 "\n\nPlease wait...")
  399. (set #Unpackmsg4 "Please wait...\n\nUnarchiving files.")
  400.  
  401. (set #DearchiveModulesmsg "Dearchiving and Installing Modules")
  402. (set #DearchiveFontmsg "Dearchiving and Installing Font Support\n\n")
  403. (set #DearchiveGfxmsg "Dearchiving and Installing GFX Filters")
  404. (set #DearchivingSpellmsg "Installing Spell Checker")
  405. (set #DearchiveThesmsg "Installing Thesaurus")
  406. (set #InstallMinmsg "Installing Minimum Configuration")
  407. (set #InstallOthermsg "Installing All Modules")
  408. (set #DeleteOldmsg "Please wait...\n\nRemoving old Wordworth.")
  409. (set #Creatingmsg "Creating Disk ")
  410.  
  411. (set #WorkingPrintermsg "Please wait...\n\nInstalling Printer.")
  412. (set #FormatChoiceprompt
  413.     (cat "\nWordworth needs to format and name " NumNewWwDisks " disks during installation. "
  414.         "For more information click 'Help'. Do you wish to:"
  415. ))
  416. (set #FormatChoicemsg1 "Slow Format Some Blank Disks")
  417. (set #FormatChoicemsg2 "Quick Format Some Blank Disks")
  418. (set #FormatChoice-Help
  419.     (cat "This installation utility needs to prepare " NumNewWwDisks" disks before installing "
  420.         #ProgName ". Before each disk is created, it will be formatted and named. "
  421.         "\n\nChoose '" #FormatChoicemsg1 "' if you wish to perform a full format, or \nchoose "
  422.         "'" #FormatChoicemsg2 "' to perform a quick format on disks that must have been "
  423.         "previously formatted as Fast File System disks."
  424. ))
  425. (set #Installingmsg1 (cat "Please wait...\n\nInstalling " #ProgName))
  426.  
  427.  
  428. (set #InstallBOPrompt 
  429. (cat "\nDo you wish to install your Workbench compugraphic fonts "
  430.          "for use with " #ProgName "?"
  431. ))
  432. (set #InstallBOChoice1 "Yes")
  433. (set #InstallBOChoice2 "No")
  434. (set #InstallBOPrompt-Help 
  435. (cat "\nYou may have compugraphic fonts in the 'bullet_outlines' drawer "
  436.          "in your Workbench partition.\n\nIf you choose '" #InstallBOChoice1
  437.          "' then " #ProgName " will allow you to use any fonts you have in this drawer."
  438.          "\nChoose '" #InstallBOChoice2 "' if you do not want to install these fonts."
  439. ))
  440.  
  441. (set #BadBoot
  442. (cat "You must turn on your machine with the \"" #Install1Disk
  443.      "\" disk in the internal drive before installing or running "
  444.      #ProgName "."
  445. ))
  446.  
  447. (set #Wwdiskhelp
  448.     (cat "\nIf you know that the correct disk is in the drive, but you "
  449.         "still cannot proceed, then the name of the disk is incorrect.\n"
  450.         "The name of this disk should be \""#NewWwDiskName "\" with no "
  451.         "blank spaces before, after or within the name.\n\n"
  452.         "To rename the disk correctly, select the disk icon (the graphic "
  453.         "that appears on the Workbench screen when the disk is inserted), choose "
  454.         "the Rename command from the Workbench Icons menu, delete the contents "
  455.         "of the text gadget and type \"" #NewWwDiskName "\"."
  456.     )
  457. )
  458.  
  459. (set #diskhelp
  460.     (cat "\nIf you know that the correct disk is in the drive, but you still cannot proceed, "
  461.         "then the name of the disk is incorrect.\n"
  462.         "Ensure that the disk name is not preceded by 'copy_of_', or blank spaces before or after the disk name.\n\n\n" @askdisk-help
  463.     )
  464. )
  465.  
  466. (set #HardDiskDestChoiceMsg
  467. (cat "Where do you want to install the\n" #ProgName " drawer?"
  468. ))
  469.  
  470. (set #InstallASLChoice1 "Yes - Replace it")
  471. (set #InstallASLChoice2 "No")
  472.  
  473. (set #InstallAGChoice1 "Yes - Replace it")
  474. (set #InstallAGChoice2 "No")
  475.  
  476. (set #InstallDiskFontChoice1 "Yes - Replace it")
  477. (set #InstallDiskFontChoice2 "No")
  478.  
  479. (set #OldASLLibraryMsg
  480. (cat "You may have an old version of the ASL library.\n\n"
  481.     #ProgName " requires you have at least version 38 of this "
  482.     "library. Do you want to replace your ASL library with version 38?"
  483. ))
  484.  
  485. (set #OldASLLibraryHelp
  486. (cat #ProgName " will not work properly unless you have at least version 38 "
  487.     "of the ASL library (Workbench 2.1 or above).\n\n"
  488.     "Choose \"" #InstallASLChoice1 "\" to replace your version with version 38 "
  489.     "and then install " #ProgName ".\nChoose \"" #InstallASLChoice2 "\" to not install "
  490.     "version 38 and to quit this installation utility."
  491. ))
  492.  
  493. (set #OldAmigaGuideLibraryMsg
  494. (cat "You may have an old version of the amigaguide library.\n\n"
  495.     #ProgName " requires you have at least version 34.11 of this "
  496.     "library.\nDo you want to replace your amigaguide library with version 34.11?"
  497. ))
  498.  
  499. (set #OldAmigaGuideLibraryHelp
  500. (cat #ProgName " will not work properly unless you have at least version 34.11 "
  501.     "of the amigaguide library (Workbench 2 or above).\n\n"
  502.     "Choose \"" #InstallASLChoice1 "\" to replace your version with version 34.11 "
  503.     "and then install " #ProgName ".\nChoose \"" #InstallASLChoice2 "\" to not install "
  504.     "version 34.11 and to quit this installation utility."
  505. ))
  506.  
  507. (set #OldDiskFontLibraryMsg
  508. (cat "You may have an old version of the diskfont library.\n\n"
  509.     #ProgName " requires you have at least version 38 of this "
  510.     "library. Do you want to replace your diskfont library with version 38?"
  511. ))
  512.  
  513. (set #OldDiskFontLibraryHelp
  514. (cat #ProgName " will not work properly unless you have at least version 38 "
  515.     "of the diskfont library (Workbench 2.1 or above).\n\n"
  516.     "Choose \"" #InstallDiskFontChoice1 "\" to replace your version with version 38 "
  517.     "and then install " #ProgName ".\nChoose \"" #InstallDiskFontChoice2 "\" to not install "
  518.     "version 38 and to quit this installation utility."
  519. ))
  520.  
  521. (set #HDLibsDestChoiceMsg1
  522. (cat "Where do you want to install the Digita font libraries?"
  523. ))
  524.  
  525. (set #HDLibsDestChoiceMsg2
  526. (cat "Where have you installed the Digita font libraries?"
  527. ))
  528.  
  529. (set #HardDiskDestChoiceHelp
  530. (cat "Select the drawer where you want to install " #ProgName
  531.     ", then click Proceed (a new drawer titled \"" #DrawerName
  532.     "\" will be created and will contain the " #ProgName " program.)"
  533. ))
  534.  
  535. (set #HDLibsDestChoiceHelp
  536. (cat "Select the drawer where you want to install "
  537.     "the Digita font libraries"
  538.     ", then click Proceed (the default is 'Libs:').\n"
  539.     " If the destination is not 'Libs:' then the chosen "
  540.     "destination must be added to the 'Libs:' path."
  541. ))
  542.  
  543. (set #HardDiskDestChoiceConfirmMsg1
  544. (cat "\nAre you sure you want to install " #ProgName " in the "
  545.     "destination:\n\n\""
  546. ))
  547.  
  548. (set #HardDiskDestChoiceConfirmMsg2
  549. (cat "\"\n\n\n\n(A new drawer titled \"" #DrawerName "\" will be "
  550.     "created and this will contain the " #ProgName " program.)"
  551. ))
  552.  
  553. (set #HardDiskDestChoiceConfirmHelp
  554. (cat "Click YES to keep the destination drawer.\n\nClick NO "
  555.     "if you want to change the destination drawer."
  556. ))
  557.  
  558. (set #DrawerExistsMsg
  559. (cat "\nA drawer titled \"" #DrawerName "\" already exists in "
  560.     "the destination you have chosen.\n\nDo you wish to replace it "
  561.     "or choose a new destination?\n\n"
  562. ))
  563.  
  564. (set #DrawerExistsChoice1 "Replace it")
  565. (set #DrawerExistsChoice2 "Choose new destination")
  566.  
  567. (set #DrawerExistsHelp
  568. (cat "\nYou have chosen a destination drawer which already has \""
  569.     #DrawerName "\" installed there.\n\nClick \""
  570.     #DrawerExistsChoice1 "\" to replace the contents with this new version "
  571.     "of " #ProgName ".\nClick \"" #DrawerExistsChoice2 "\" to choose a "
  572.     "new destination drawer.\n\n"
  573.     "If you choose \"" #DrawerExistsChoice1 "\" then please make sure you "
  574.     "have back up copies of any documents you wish to keep."
  575. ))
  576.  
  577. (set #NoDiskSpaceMsg1
  578. (cat "\nThere is insufficient available space on your hard disk to install "
  579.     #ProgName ". You will need a minimum of "
  580. ))
  581. (set #NoDiskSpaceMsg2
  582. (cat "MB of free disk space.\n\nEither click \"Abort Install\" to exit this "
  583.     "installation and delete some files from your hard disk, or click \"Proceed\" and try a "
  584.     "different partition."
  585. ))
  586.  
  587. (set #NoLibSpaceMsg1
  588. (cat "\nThere is insufficient available space in '"
  589. ))
  590. (set #NoLibSpaceMsg2
  591. (cat "' to install the " #ProgName " libraries. You have "
  592. ))
  593. (set #NoLibSpaceMsg3a
  594. (cat "K free but will need a minimum of "
  595. ))
  596. (set #NoLibSpaceMsg3b
  597. (cat "K of free disk space.\n\nEither click \"Abort Install\" to exit this "
  598.     "installation and delete some files from your hard disk, or click \"Proceed\" to try a "
  599.     "different partition."
  600. ))
  601.  
  602. (set #LibAbortMsg1
  603. (cat "There is insufficient space in your System partition on your hard disk to install the "
  604.     #ProgName " libraries. You have "
  605. ))
  606. (set #LibAbortMsg2
  607. (cat "K free but need a minimum of "
  608. ))
  609. (set #LibAbortMsg3
  610. (cat "K of free disk space. "
  611.     "Please make space free by deleting some files and try to "
  612.     "install again or contact Digita technical support."
  613. ))
  614.  
  615. (set #ArchiveAbortMsg1
  616. (cat "There was a problem when trying to dearchive `"
  617. ))
  618. (set #ArchiveAbortMsg2
  619. (cat "', please try installing again. If you have a hard disk, try a "
  620.     "different drawer or partition.\nIf problems persist consult the "
  621.     "Help file and Instruction Book before contacting Digita Technical "
  622.     "Support."
  623. ))
  624.  
  625. (set #AskEnvArc
  626. (cat "\nIn which disk or drawer should the environment settings "
  627.     "(ENVARC:) be saved?"
  628. ))
  629. (set #AskEnvArcHelp
  630. (cat "\nThis section lets you choose in which drawer, or on which disk, "
  631.     #ProgName " places its enviroment settings.\n\nThese should normally go "
  632.     "in the \"ENVARC:\" directory of your system disk or partition.\n\n"
  633.     @askdir-help
  634. ))
  635.  
  636. (set #AskEnvArcStartup
  637. (cat "\nYour system startup sequence did not contain an assign for "
  638.     "ENVARC:. Do you wish to add this assign to \"S:User-Startup\"?"
  639. ))
  640. (set #AskEnvArcStartupHelp
  641. (cat "\nSelect YES to add assign to the user-startup file\n\n" @startup-help
  642. ))
  643.  
  644. (set #AskEnvStartup
  645. (cat "\nYour system startup sequence did not contain an assign for "
  646.     "ENV:. Do you wish to add this assign to \"S:User-Startup\"?"
  647. ))
  648. (set #AskEnvStartupHelp
  649. (cat "\nSelect YES to add assign to the user-startup file\n\n" @startup-help
  650. ))
  651.  
  652. (set #DriverUsedmsg1
  653. (cat "\n\nThe standard Workbench printer driver for the printer you chose, `"
  654. ))
  655. (set #DriverUsedmsg2
  656. (cat "', has been installed."
  657. ))
  658.  
  659. (set #InstallingFontsmsg "Please Wait...\n\nInstalling Fonts.")
  660.  
  661. (set #InstallOldWordworthFontsmsg
  662. (cat "\nFor information on how to use your existing Agfa fonts with "
  663.     #ProgName ", please refer to the 'How To' section "
  664.     "of the " #ProgName " help."
  665. ))
  666.  
  667. (set #InstallationCompletemsg "\nPrinter Installation Complete!\n")
  668.  
  669. (set #InstallPicassoMsg "\nDo you have a Picasso or similar graphics card?")
  670. (set #InstallPicassoYes "Yes")
  671. (set #InstallPicassoNo "No")
  672. (set #InstallPicassoHelp
  673.     (cat "\n" #ProgName " has improved compatibility with third party graphics cards (like Retina or Picasso)."
  674.         "\n\nTo inform Wordworth that you are using one of these cards, a tooltype has to be added to the Wordworth program icon."
  675.         "\n\nClick 'Yes' to add a PICASSO tooltype to the program icon, if you have a graphics card."
  676.         "\nClick 'No' to not add this tooltype.\n\nIf you are using CyberGraphX software and you experience problems running Wordworth "
  677.         "then try removing the 'PICASSO' tooltype from the Wordworth program icon."
  678.     )
  679. )
  680.  
  681.  
  682.  
  683. ; ### PROCEDURE DEFINITIONS
  684.  
  685. ;** Set up Destinations
  686. (Procedure @SetUpDestinationsHD
  687.     (
  688.         (set #InsideHDDest (tackon #DestDrawer #DrawerName))
  689.         (set #HDModulesDest (tackon #InsideHDDest #ModulesName))
  690.         (set #HDModDisDest (tackon #HDModulesDest #ModDisName))
  691.         (set #HDCatalogsLangDest (tackon #InsideHDDest #WwCatalogsName))
  692.         (set #HDCatalogsDest (tackon #HDCatalogsLangDest Language))
  693.         (set #HDWwFiles1Dest (tackon #InsideHDDest #WwFilesDrawerName))
  694.         (set #HDWwFiles2Dest (tackon #InsideHDDest #WwFilesDrawerName))
  695.         (set #HDWwFiles3Dest (tackon #InsideHDDest #WwFilesDrawerName))
  696.         (set #HDWwFiltersDest (tackon #InsideHDDest #WwFiltersName))
  697.         (set #HDWwPictureFiltersDest (tackon #HDWwFiltersDest #WwPictureFiltersName))
  698.         (set #HDWwFontsDest (tackon #InsideHDDest #WwFontsName))
  699.         (set #HDWwAgfaDest (tackon #HDWwFontsDest #WwAgfaName))
  700.         (set #HDWwPSDest (tackon #HDWwFontsDest #WwPSName))
  701.         (set #HDWwTTDest (tackon #HDWwFontsDest #WwTTName))
  702.         (set #HDWwUFSTDest (tackon #HDWwFontsDest #WwUFSTName))
  703.         (set #HDWwHelpDest (tackon #InsideHDDest #WwHDHelpName))
  704.         (set #HDDocsDest (tackon #InsideHDDest #DocsName))
  705.         (set #HDTemplatesDest (tackon #HDDocsDest #TemplatesName))
  706.         (set #HDClipartDest (tackon #InsideHDDest #ClipartName))
  707.         (set #HDDictDest (tackon #InsideHDDest #SpellName))
  708.         (set #HDThesDest (tackon #InsideHDDest #SpellName))
  709.         (set #HDWwToolsDest (tackon #InsideHDDest #WwToolsDrawerName))
  710.     )
  711. )
  712.  
  713.  
  714. ;** define all hard disk destinations
  715. (Procedure @SetHardDiskDestinations
  716.     (
  717.         (set #ModulesDest #HDModulesDest)
  718.         (set #ModDisDest #HDModDisDest)
  719.         (set #CatalogsLangDest #HDCatalogsLangDest)
  720.         (set #CatalogsDest #HDCatalogsDest)
  721.         (set #WwFiles1Dest #HDWwFiles1Dest)
  722.         (set #WwFiles2Dest #HDWwFiles1Dest)
  723.         (set #WwFiles3Dest #HDWwFiles1Dest)
  724.         (set #WwFiltersDest #HDWwFiltersDest)
  725.         (set #WwPictureFiltersDest #HDWwPictureFiltersDest)
  726.         (set #WwFontsDest #HDWwFontsDest)
  727.         (set #WwAgfaDest #HDWwAgfaDest)
  728.         (set #WwPSDest #HDWwPSDest)
  729.         (set #WwTTDest #HDWwTTDest)
  730.         (set #WwUFSTDest #HDWwUFSTDest)
  731.         (set #WwHelpDest #HDWwHelpDest)
  732.         (set #DocsDest #HDDocsDest)
  733.         (set #TemplatesDest #HDTemplatesDest)
  734.         (set #ClipartDest #HDClipartDest)
  735.         (set #DictDest #HDDictDest)
  736.         (set #ThesDest #HDThesDest)
  737.         (set #WwToolsDest #HDWwToolsDest)
  738.     )
  739. )
  740.  
  741.  
  742. ;** define all floppy disk destinations
  743. (Procedure @SetFloppyDiskDestinations
  744.     (
  745.         (set #LocaleDest (cat #NewWwDiskName ":" #LocaleName))
  746.         (set #ModulesDest (cat #NewWwDiskName ":" #ModulesName))
  747.         (set #ModDisDest (cat #NewWwDiskName ":" #ModulesName "/" #ModDisName))
  748.         (set #CatalogsLangDest (cat #NewWwDiskName ":" #WwCatalogsName))
  749.         (set #CatalogsDest (cat #NewWwDiskName ":" #WwCatalogsName "/" Language))
  750.         (set #LibsDest (cat #NewWwDiskName ":" #LibsDefault))
  751.         (set #SysFontsDest (cat #NewWwDiskName ":" #SystemFontsDest))
  752.         (set #WwFilesDest (cat #NewWwDiskName ":" #WwFilesDrawerName))
  753.         (set #WwFiles2Dest (cat #NewWwSysDiskName ":" #WwFilesDrawerName))
  754.         (set #WwFilterLibDest (cat #NewWwOutlinesDiskName ":" #WwFilesDrawerName))
  755.         (set #WwFiltersDest (cat #NewWwOutlinesDiskName ":" #WwFiltersName))
  756.         (set #WwPictureFiltersDest (cat #NewWwOutlinesDiskName ":" #WwFiltersName "/" #WwPictureFiltersName))
  757.         (set #WwFontsDest (cat #NewWwOutlinesDiskName ":" #WwFontsName))
  758.         (set #WwFontsDestOutlines (cat #NewWwOutlinesDiskName ":" #WwFontsName))
  759.         (set #WwAgfaDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwAgfaName))
  760.         (set #WwPSDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwPSName))
  761.         (set #WwTTDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwTTName))
  762.         (set #WwUFSTDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwUFSTName))
  763.         (set #DocsDest (cat #NewWwOutlinesDiskName ":" #DocsName))
  764.         (set #TemplatesDest (cat #DocsDest "/" #TemplatesName))
  765.         (set #ClipartDest (cat #NewWwOutlinesDiskName ":" #ClipartName))
  766.  
  767.         (set #DictDest (cat #NewWwDictDiskname ":" #SpellName))
  768.         (if (= @language "deutsch")
  769.             (
  770.                 (set #ThesDest (cat #NewWwThesDiskname ":" #SpellName))
  771.             )
  772.             (
  773.                 (set #ThesDest (cat #NewWwDictDiskname ":" #SpellName))
  774.             )
  775.         )
  776.  
  777.         (set #WwToolsDest (cat #NewWwSysDiskName ":" #WwToolsDrawerName))
  778.         (set #WwHelpDest (cat #NewWwOutlinesDiskname ":" #WwHDHelpName))
  779.     )
  780. )
  781.  
  782.  
  783. ;** Procedure to copy 'Unpackfile' archive to RAM:Archives
  784. (procedure @CopyArchives
  785.     (
  786.         (copyfiles
  787.             (source    UnpackFileDisk)
  788.             (dest "RAM:Archives")
  789.             (all)
  790.         )
  791.     )
  792. )
  793.  
  794.  
  795. ;** Procedure to decompress file set in 'UnpackFile' to 'UnpackDest'
  796. (procedure @UnpackFiles
  797.     (
  798.       (working #Unpackmsg1 UnpackFile #Unpackmsg2 UnpackDest #Unpackmsg3)
  799.         (set ExpandName UnpackFile)
  800.         (set #ArchiveError 0)
  801.         (set RunLHA
  802.             (cat "LHA -I -m e \"" ExpandName "\" \"" UnpackDest "\"")
  803.         )
  804.         (set #ArchiveError (run RunLHA))
  805.         (if (> #ArchiveError 0)
  806.             (
  807.                 (set #ArchiveAbortMsg (cat #ArchiveAbortMsg1 ExpandName #ArchiveAbortMsg2))
  808.                 (abort #ArchiveAbortMsg)
  809.             )
  810.         )
  811.     )
  812. )
  813.  
  814.  
  815. ;** Procedure to Check if Wordworth already exists in destination
  816. ;** Replace or choose again if so
  817. (procedure @CheckExistsAlready
  818.     (
  819.         (if (exists (tackon #DestDrawer #DrawerName)) ; if there is already a drawer named Wordworth3
  820.             (
  821.                 (set ChooseAgainAnswer
  822.                     (askbool
  823.                         (prompt #DrawerExistsMsg)
  824.                         (choices #DrawerExistsChoice1 #DrawerExistsChoice2)
  825.                         (help #DrawerExistsHelp)
  826.                         (default 1)
  827.                     )
  828.                 )
  829.                 (if (= ChooseAgainAnswer 0)
  830.                     (
  831.                         (set WwNotExists 0)
  832.                     )
  833.                     (;else
  834.                         (@PreserveTextFiles)
  835.                         (@DeleteOldWordworth3)
  836.                         (set WwNotExists 1)
  837.                     )
  838.                 )
  839.             )
  840.             (;else
  841.                 (set WwNotExists 1)
  842.             )
  843.         );endif
  844.     )
  845. )
  846.  
  847. ;** Procedure to choose the hard disk destination
  848. (procedure @FindHDDest
  849.     (
  850.         (set WwNotExists 0)
  851.     (while (= WwNotExists 0)
  852.             (
  853.           (@ChooseHDDest)
  854.           (while (< (getdiskspace #DestDrawer) HDSpaceNeededBytes)
  855.             (
  856.               (if (< (getdiskspace #DestDrawer) HDSpaceNeededBytes)
  857.                 (
  858.                             (if (= @user-level 0)
  859.                               (
  860.                                 (user 2)
  861.                                 (set #UserNovice 1)
  862.                               )
  863.                             )
  864.                   (message #NoDiskSpaceMsg1 (/ (/ HDSpaceNeededBytes 1024) 1024) #NoDiskSpaceMsg2)
  865.                   (@ChooseHDDest)
  866.                 )
  867.                  )
  868.             )
  869.             ) ;end while
  870.             (@CheckExistsAlready)
  871.         )
  872.       );end while
  873.     (if (= #UserNovice 1)
  874.       (user 0)
  875.     )
  876.     )
  877. )
  878.  
  879. (procedure @ChooseHDDest
  880.     (
  881.         ;** Find default drawer
  882.         (set #DefaultDest (getassign "Work" "d"))
  883.         (if (= #DefaultDest "")
  884.             (
  885.                 (set #DefaultDest (getassign "HD3" "d"))
  886.                 (if (= #DefaultDest "")
  887.                     (
  888.                         (set #DefaultDest (getassign "HD2" "d"))
  889.                         (if (= #DefaultDest "")
  890.                 (
  891.                 (set #DefaultDest (getassign "HD1" "d"))
  892.                 (if (= #DefaultDest "")
  893.                   (
  894.                     (set #DefaultDest (getassign "DH1" "d"))
  895.                     (if (= #DefaultDest "")
  896.                       (
  897.                         (set #DefaultDest (getassign "HD0" "d"))
  898.                         (if (= #DefaultDest "")
  899.                           (
  900.                             (set #DefaultDest "DH0:")
  901.                             (if (= #UserNovice 1)
  902.                               (user 2)
  903.                             )
  904.                           )
  905.                         )
  906.                       )
  907.                     )
  908.                   )
  909.                 )
  910.               )
  911.             )
  912.           )
  913.         )
  914.             )
  915.         )
  916.         ;** Ask for destination
  917.         (set #DestDrawer
  918.             (askdir
  919.                 (prompt #HardDiskDestChoiceMsg)
  920.                 (help #HardDiskDestChoiceHelp)
  921.                 (default #DefaultDest)
  922.             )
  923.         )
  924.     (if (= #UserNovice 1)
  925.       (user 0)
  926.     )
  927.     )
  928. )
  929.  
  930.  
  931. ;** Create all Ww drawers in #DestDrawer and set paths to them
  932. (procedure @CreateDrawers
  933.     (
  934.         (set #InsideHDDest (tackon #DestDrawer #DrawerName))
  935.         ;** Make the Wordworth drawer
  936.         (makedir #InsideHDDest (infos))
  937.  
  938.         ;** Make the Modules drawer
  939.         (set #HDModulesDest (tackon #InsideHDDest #ModulesName))
  940.         (makedir #HDModulesDest (infos))
  941.             ;** Make the Modules Disabled drawer
  942.             (set #HDModDisDest (tackon #HDModulesDest #ModDisName))
  943.             (makedir #HDModDisDest (infos))
  944.  
  945.         ;** Make the Catalogs drawer
  946.         (set #HDCatalogsLangDest (tackon #InsideHDDest #WwCatalogsName))
  947.         (makedir #HDCatalogsLangDest)
  948.         ;** Make the language drawer
  949.         (set #HDCatalogsDest (tackon #HDCatalogsLangDest Language))
  950.             (makedir #HDCatalogsDest)
  951.  
  952.         ;** Make the WwFiles drawer (just do once for #WwFilesDrawerName)
  953.         (set #HDWwFiles1Dest (tackon #InsideHDDest #WwFilesDrawerName))
  954.         (makedir #HDWwFiles1Dest)
  955.  
  956.         ;** Make the Filters drawer
  957.         (set #HDWwFiltersDest (tackon #InsideHDDest #WwFiltersName))
  958.         (makedir #HDWwFiltersDest)
  959.         ;** Make Picture Filters drawer
  960.         (set #HDWwPictureFiltersDest (tackon #HDWwFiltersDest #WwPictureFiltersName))
  961.         (makedir #HDWwPictureFiltersDest)
  962.  
  963.         ;** Make the WwFonts drawer
  964.         (set #HDWwFontsDest (tackon #InsideHDDest #WwFontsName))
  965.         (makedir #HDWwFontsDest (infos))
  966.             ;** Make the Agfa drawer
  967.             (set #HDWwAgfaDest (tackon #HDWwFontsDest #WwAgfaName))
  968.             (makedir #HDWwAgfaDest (infos))
  969.             ;** Make the PS drawer
  970.             (set #HDWwPSDest (tackon #HDWwFontsDest #WwPSName))
  971.             (makedir #HDWwPSDest)
  972.             ;** Make the TT drawer
  973.             (set #HDWwTTDest (tackon #HDWwFontsDest #WwTTName))
  974.             (makedir #HDWwTTDest)
  975.             ;** Make the UFST drawer
  976.             (set #HDWwUFSTDest (tackon #HDWwFontsDest #WwUFSTName))
  977.             (makedir #HDWwUFSTDest)
  978.  
  979.         ;** Make the WwHelp drawer
  980.         (set #HDWwHelpDest (tackon #InsideHDDest #WwHDHelpName))
  981.         (makedir #HDWwHelpDest)
  982.  
  983.         ;** Make the Docs drawer
  984.         (set #HDDocsDest (tackon #InsideHDDest #DocsName))
  985.         (makedir #HDDocsDest (infos))
  986.             ;** Make the Templates drawer
  987.             (set #HDTemplatesDest (tackon #HDDocsDest #TemplatesName))
  988.             (makedir #HDTemplatesDest (infos))
  989.  
  990.         ;** Make the Clipart drawer
  991.         (set #HDClipartDest (tackon #InsideHDDest #ClipartName))
  992.         (makedir #HDClipartDest (infos))
  993.  
  994.         ;** Make the Spell drawer
  995.         (set #HDDictDest (tackon #InsideHDDest #SpellName))
  996.         (makedir #HDDictDest)
  997.             (set #HDThesDest #HDDictDest)
  998.  
  999.         ;** Make the WwTools drawer
  1000.         (set #HDWwToolsDest (tackon #InsideHDDest #WwToolsDrawerName))
  1001.         (makedir #HDWwToolsDest (infos))
  1002.  
  1003.         (complete 10)
  1004.     )
  1005. )
  1006.  
  1007. ;** Procedure to dearchive basic prog files (like WwFiles & program)
  1008. (procedure @DearchiveProgFiles1
  1009.     (
  1010.         (working #DearchivingMsg)
  1011.  
  1012.         (set #FileSourceName #WordworthSourceName)
  1013.         (set #FileSourceDisk #Install1Disk)
  1014.         (@GetDisk)
  1015.         (set UnpackFile #FileSourceName)
  1016.         (set UnpackDest (cat #InsideHDDest "/"))
  1017.         (@UnpackFiles)
  1018.  
  1019.         (set UnpackFile #WwFiles1SourceName)
  1020.         (set UnpackDest (cat #WwFiles1Dest "/"))
  1021.         (@UnpackFiles)
  1022.  
  1023.         (set UnpackFile #WwFiles3SourceName)
  1024.         (set UnpackDest (cat #WwFiles3Dest "/"))
  1025.         (@UnpackFiles)
  1026.  
  1027.         (set UnpackFile #CatalogsSourceName)
  1028.         (set UnpackDest (cat #CatalogsDest "/"))
  1029.         (@UnpackFiles)
  1030.     )
  1031. )
  1032.  
  1033. ;** Procedure to dearchive second set of basic files from disk 2
  1034. (procedure @DearchiveProgFiles2
  1035.     (
  1036.         (set #FileSourceName #WwprogSourceName)
  1037.         (set #FileSourceDisk #Install2Disk)
  1038.         (@GetDisk)
  1039.         (set UnpackFile #FileSourceName)
  1040.         (set UnpackDest (cat #InsideHDDest "/"))
  1041.         (@UnpackFiles)
  1042.  
  1043.         (set UnpackFile #WwFiles2SourceName)
  1044.         (set UnpackDest (cat #WwFiles2Dest "/"))
  1045.         (@UnpackFiles)
  1046.     )
  1047. )
  1048.  
  1049. ;** Dearchive Filter library
  1050. (procedure @DearchiveFilterLibrary
  1051.     (
  1052.         (set #FileSourceName #FiltersSourceName)
  1053.         (set #FileSourceDisk #Install2Disk)
  1054.         (@GetDisk)
  1055.  
  1056.         (set UnPackFile #FileSourceName)
  1057.         (set UnPackDest (cat #WwFiles3Dest "/"))
  1058.         (@UnpackFiles)
  1059.     )
  1060. )
  1061.  
  1062. ;** Procedure to dearchive Custom modules to hard disk
  1063. (procedure @DearchiveCustomModulesHD
  1064.     (
  1065.         (@CreateDrawers)
  1066.         (@SetHardDiskDestinations)
  1067.         (set #HDLibsDestChoiceMsg #HDLibsDestChoiceMsg1)
  1068.         (@CheckLibsDest)
  1069.         (@DearchiveScreenFonts)
  1070.         (@CheckAmigaGuide)
  1071.         (@DearchiveModules)
  1072.         (complete 40)
  1073.         (@DearchiveProgFiles1)
  1074.         (@DearchiveFontSupport)
  1075.         (complete 50)
  1076.         (@DearchiveProgFiles2)
  1077.          (@DearchiveFilterLibrary)
  1078.         (@DearchiveGFXFilters)
  1079.         (complete 65)
  1080.         (@DearchiveExtras)
  1081.         (complete 70)
  1082.         (@DearchiveSpell)
  1083.         (complete 75)
  1084.         (@DearchiveThes)
  1085.         (complete 80)
  1086.  
  1087.         (set #FileSourceDisk #Install3Disk)
  1088.         (@GetDisk)
  1089.  
  1090.         (set UnpackFile #WwHelpSourceName)
  1091.         (set UnpackDest (cat #WwHelpDest "/"))
  1092.         (@UnpackFiles)
  1093.  
  1094. ;** Now lets install some nicely positioned icons!
  1095.  
  1096.         (set UnpackFile (cat #Icons1SourceName))
  1097.         (set UnpackDest (cat #InsideHDDest "/"))
  1098.         (@UnpackFiles)
  1099.  
  1100.         (set UnpackFile (cat #Icons2SourceName))
  1101.         (set UnpackDest (cat #InsideHDDest "//"))
  1102.         (@UnpackFiles)
  1103.     )
  1104. )
  1105.  
  1106. ;** routine to get disk specified in '#FileSourceDisk'
  1107. (procedure @GetDisk
  1108.     ;(
  1109.     ;    (askdisk
  1110.     ;        (prompt #InsertDiskMsg #FileSourceDisk)
  1111.     ;        (help #diskhelp)
  1112.     ;        (dest #FileSourceDisk)
  1113.     ;    )
  1114.     ;)
  1115. )
  1116.  
  1117. ;** Procedure to de-archive screen fonts
  1118. (procedure @DearchiveScreenFonts
  1119.     (
  1120.         (set #Counter 0)
  1121.         (while (< #Counter #NumFonts)
  1122.             (set #FontName
  1123.                 (select #Counter
  1124.                     #Font1Name
  1125.                     #Font2Name
  1126.                     #Font3Name
  1127.                 )
  1128.             )
  1129.             (set #CheckFont (cat #SystemFontsDest ":" #FontName))
  1130.             (if (exists #CheckFont)
  1131.                 (
  1132.                     (protect #CheckFont "+r+w+e+d")
  1133.                 )
  1134.             )
  1135.             (set #Counter (+ #Counter 1))
  1136.         )
  1137.         (set #FileSourceDisk #Install1Disk)
  1138.         (set #FileSourceName #SystemFontsSourceName)
  1139.         (@GetDisk)
  1140.  
  1141.         (set UnpackFile #FileSourceName)
  1142.         (set UnpackDest (cat #SystemFontsDest ":"))
  1143.         (@UnpackFiles)
  1144.     )
  1145. )
  1146.  
  1147.  
  1148. ;** Procedure to de-archive amigaguide library
  1149. (procedure @DearchiveAmigaGuide
  1150.     (
  1151.         (set #FileSourceName #AmigaGuideSourceName)
  1152.         (set #FileSourceDisk #Install1Disk)
  1153.         (@GetDisk)
  1154.         (set UnpackFile #FileSourceName)
  1155.         (set UnpackDest (cat #LibsDefault ":"))
  1156.         (@UnpackFiles)
  1157.     )
  1158. )
  1159.  
  1160.  
  1161. ;** Procedure to de-archive and install Modules
  1162. (procedure @DearcMods
  1163.     (
  1164.         (working #DearchiveModulesmsg)
  1165.  
  1166.         (if (= FloppyInstall 1)
  1167.             (
  1168.                 (set UnpackFile (cat "RAM:Archives/" #PassModuleOptionName))
  1169.             )
  1170.             (
  1171.                 (set #FileSourceDisk #Install1Disk)
  1172.                     (@GetDisk)
  1173.  
  1174.                 (set UnpackFile #PassModuleOptionSourceName)
  1175.             )
  1176.         )
  1177.  
  1178.         (set UnpackDest (cat #ModulesDest "/") )
  1179.         (@UnpackFiles)
  1180.  
  1181.         ;now delete it from storage if it exists
  1182.         (set #ModOld (tackon #ModDisDest #PassModuleName))
  1183.         (if (exists #ModOld)
  1184.             (
  1185.                 (delete #ModOld
  1186.                     (optional "force")
  1187.                 )
  1188.                 (delete (cat #ModOld ".info")
  1189.                     (optional "force")
  1190.                 )
  1191.             )
  1192.         )
  1193.  
  1194.         (if (= FloppyInstall 1)
  1195.             (
  1196.                 (run (cat "delete RAM:Archives/" #PassModuleOptionName) (safe))
  1197.             )
  1198.         )
  1199.     )
  1200. )
  1201.  
  1202. ;** Procedure to pass relevant module names to be dearchived
  1203. (procedure @DearchiveModules
  1204.     (
  1205.         (working #DearchiveModulesmsg)
  1206.  
  1207.         (set #PassModuleOptionSourceName #ModuleOption1SourceName)
  1208.         (set #PassModuleName #Module1Name)
  1209.         (set #PassModuleOptionName #ModuleOption1Name)
  1210.         (@DearcMods)
  1211.  
  1212.         (set #PassModuleOptionSourceName #ModuleOption2SourceName)
  1213.         (set #PassModuleName #Module2Name)
  1214.         (set #PassModuleOptionName #ModuleOption2Name)
  1215.         (@DearcMods)
  1216.  
  1217.         (set #PassModuleOptionSourceName #ModuleOption3SourceName)
  1218.         (set #PassModuleName #Module3Name)
  1219.         (set #PassModuleOptionName #ModuleOption3Name)
  1220.         (@DearcMods)
  1221.     )
  1222. )
  1223.  
  1224.  
  1225. ;** get lib destination
  1226. (procedure @GetLibDest
  1227.     (
  1228.         (if (= @user-level 2)
  1229.             (
  1230.                 ;** Ask for destination
  1231.                 (set #LibsDest
  1232.                     (askdir
  1233.                         (prompt #HDLibsDestChoiceMsg)
  1234.                         (help #HDLibsDestChoiceHelp)
  1235.                         (default LibsPath)
  1236.                     )
  1237.                 )
  1238.             )
  1239.             (
  1240.                 (set #LibsDest LibsPath)
  1241.             )
  1242.         ) ;end if
  1243.   )
  1244. )
  1245.  
  1246. ;** Procedure to check Libs destination
  1247. (procedure @CheckLibsDest
  1248.     (
  1249.         (set LibsPath (expandpath (cat #LibsDefault ":")))
  1250.       (@GetLibDest)
  1251.          (set SystemSpace TotalFontLibSpace)
  1252.          (while (< (getdiskspace #LibsDest) SystemSpace)
  1253.              (
  1254.            (set #LibsDestSpace (getdiskspace #LibsDest))
  1255.                 (if (= @user-level 2)
  1256.                 (
  1257.               (if (< #LibsDestSpace SystemSpace)
  1258.                 (
  1259.                   (message #NoLibSpaceMsg1 #LibsDest
  1260.                       #NoLibSpaceMsg2 (/ #LibsDestSpace 1024) #NoLibSpaceMsg3a
  1261.                       (/ SystemSpace 1024) #NoLibSpaceMsg3b
  1262.                   )
  1263.                   (@GetLibDest)
  1264.                 )
  1265.                  )
  1266.             )
  1267.             (
  1268.                 (abort #LibAbortMsg1 (/ #LibsDestSpace 1024)
  1269.                     #LibAbortMsg2 (/ SystemSpace 1024) #LibAbortMsg3
  1270.                 )
  1271.             )
  1272.         ); endif
  1273.       )
  1274.     ) ;end while
  1275.   )
  1276. )
  1277.  
  1278.  
  1279. ;** Procedure to de-archive and install Font Support
  1280. (procedure @DearchiveFontSupport
  1281.     (
  1282.         (working #DearchiveFontmsg)
  1283.         (set n 0)
  1284.         ;delete old small digita libraries
  1285.         (if (exists (cat #LibsDest "/" #IFlibraryName))
  1286.             (
  1287.                 (delete (cat #LibsDest "/" #IFlibraryName)
  1288.                     (optional "force")
  1289.                 )
  1290.             )
  1291.         )
  1292.  
  1293.         (set #FileSourceDisk #Install1Disk)
  1294.         (@GetDisk)
  1295.  
  1296.         (@DearchiveClipArt)
  1297.  
  1298.         (set UnpackFile #FontType1SourceName)
  1299.         (set UnpackDest (cat #LibsDest "/") )
  1300.         (@UnpackFiles)
  1301.  
  1302.         (set #FileSourceName #UFSTSourceName)
  1303.         (set #FileSourceDisk #Install2Disk)
  1304.         (@GetDisk)
  1305.         (set UnpackFile #FileSourceName)
  1306.         (set UnpackDest (cat #WwUFSTDest "/"))
  1307.         (@UnpackFiles)
  1308.  
  1309.         (set UnpackFile #IntelliSourceName)
  1310.         (set UnpackDest (cat #WwAgfaDest "/"))
  1311.         (@UnpackFiles)
  1312.  
  1313.         (set UnpackFile #WwToolsSourceName)
  1314.         (set UnpackDest (cat #WwToolsDest "/"))
  1315.         (@UnpackFiles)
  1316.  
  1317.         (copyfiles
  1318.             (source (cat #Install2Disk ":Utils"))        ;Copy install font scripts
  1319.             (dest "RAM:")                                                            ;to RAM for later on
  1320.             (pattern "FontScript#?")
  1321.             (nogauge)
  1322.             (optional "force")
  1323.         )
  1324.  
  1325.         (copyfiles
  1326.             (source #WwToolsDest)                                            ;Copy `InstallOutlines'
  1327.             (dest "RAM:")                                                            ;to RAM for later on
  1328.             (pattern "InstallOutlines")
  1329.             (nogauge)
  1330.             (optional "nofail")
  1331.         )
  1332.     )
  1333. )
  1334.  
  1335. ;** Procedure to de-archive and install GFX Filters
  1336. (procedure @DearchiveGFXFilters
  1337.     (
  1338.         (if (= FloppyInstall 1)
  1339.             (
  1340.                 (set UnpackFile (cat "RAM:Archives/" #GfxFilter1Name))
  1341.             )
  1342.             (
  1343.                 (set #FileSourceDisk #Install2Disk)
  1344.                     (@GetDisk)
  1345.  
  1346.                 (set UnpackFile #GfxFilter1SourceName)
  1347.             )
  1348.         )
  1349.  
  1350.         (working #DearchivingGfxMsg)
  1351.  
  1352.         (set UnpackDest (cat #WwPictureFiltersDest "/") )
  1353.         (@UnpackFiles)
  1354.  
  1355.         (if (= FloppyInstall 1)
  1356.             (run (cat "delete RAM:Archives/" #GfxFilter1Name) (safe))
  1357.         )
  1358.     )
  1359. )
  1360.  
  1361. (procedure @DearchiveTutorials
  1362.     (
  1363.         (if (= FloppyInstall 1)
  1364.             (
  1365.                 (set #FileSourceName (cat "RAM:Archives/" #CustomExtras1Name))
  1366.             )
  1367.             (
  1368.                 (set #FileSourceName #CustomExtras1SourceName)
  1369.                 (set #FileSourceDisk #Install2Disk)
  1370.                 (@GetDisk)
  1371.             )
  1372.         )
  1373.  
  1374.         (working #DearchivingMsg)
  1375.  
  1376.         (set UnpackFile #FileSourceName)
  1377.         (set UnpackDest (cat #DocsDest "/" ))
  1378.         (@UnpackFiles)
  1379.  
  1380.         (if (= FloppyInstall 0)
  1381.             (
  1382.                 ;set default tool type to hard disk dest, for all documents
  1383.                 (foreach #DocsDest "#?"
  1384.                     (
  1385.                         (tooltype
  1386.                             (dest (cat #DocsDest "/" @each-name))
  1387.                             (setdefaulttool (cat #InsideHDDest "/" #DocDefaultTool))
  1388.                         )
  1389.                     )
  1390.                 ); end foreach
  1391.             )
  1392.             (
  1393.                 (run (cat "delete RAM:Archives/" #CustomExtras1Name) (safe))
  1394.             )
  1395.         )
  1396.     )
  1397. )
  1398.  
  1399.  
  1400. (procedure @DearchiveTemplates
  1401.     (
  1402.         (if (= FloppyInstall 1)
  1403.             (
  1404.             (set #FileSourceName (cat "RAM:Archives/" #CustomExtras2Name))
  1405.             )
  1406.             (
  1407.                 (set #FileSourceName #CustomExtras2SourceName)
  1408.                 (set #FileSourceDisk #Install2Disk)
  1409.                 (@GetDisk)
  1410.             )
  1411.         )
  1412.  
  1413.         (working #DearchivingMsg)
  1414.  
  1415.         (set UnpackFile #FileSourceName)
  1416.         (set UnpackDest (cat #TemplatesDest "/" ))
  1417.         (@UnpackFiles)
  1418.  
  1419.         (if (= FloppyInstall 1)
  1420.             (run (cat "delete RAM:Archives/" #CustomExtras2Name) (safe))
  1421.         )
  1422.     )
  1423. )
  1424.  
  1425.  
  1426. (procedure @DearchiveClipArt
  1427.     (
  1428.         (if (= FloppyInstall 1)
  1429.             (
  1430.                 (set #FileSourceName (cat "RAM:Archives/" #CustomExtras3Name))
  1431.             )
  1432.             (
  1433.                 (set #FileSourceName #CustomExtras3SourceName)
  1434.                 (set #FileSourceDisk #Install1Disk)
  1435.                 (@GetDisk)
  1436.             )
  1437.         )
  1438.  
  1439.         (set UnpackFile #FileSourceName)
  1440.         (set UnpackDest (cat #ClipartDest "/" ))
  1441.         (@UnpackFiles)
  1442.  
  1443.         (if (= FloppyInstall 1)
  1444.             (run (cat "delete RAM:Archives/" #CustomExtras3Name) (safe))
  1445.         )
  1446.     )
  1447. )
  1448.  
  1449.  
  1450. ;** Procedure to de-archive and install Extras
  1451. (procedure @DearchiveExtras
  1452.     (
  1453.         (@DearchiveTutorials)
  1454.         (@DearchiveTemplates)
  1455.     )
  1456. )
  1457.  
  1458. ;** Install Spell files
  1459. (procedure @DearchiveSpell
  1460.     (
  1461.         (if (= FloppyInstall 1)
  1462.             (
  1463.             (set #FileSourceName (cat "RAM:Archives/" #DictionaryName))
  1464.             )
  1465.             (
  1466.                 (set #FileSourceName #DictionarySourceName)
  1467.                 (set #FileSourceDisk #Install3Disk)
  1468.                 (@GetDisk)
  1469.             )
  1470.         )
  1471.  
  1472.         (working #DearchivingSpellmsg)
  1473.  
  1474.         (set UnpackFile #FileSourceName)
  1475.         (set UnpackDest (cat #DictDest "/" ))
  1476.         (@UnpackFiles)
  1477.  
  1478.         (if (= FloppyInstall 1)
  1479.             (run (cat "delete RAM:Archives/" #DictionaryName) (safe))
  1480.         )
  1481.     )
  1482. )
  1483.  
  1484. ;** Install Thes files
  1485. (procedure @DearchiveThes
  1486.     (
  1487.         (if (= FloppyInstall 1)
  1488.             (
  1489.             (set #FileSourceName (cat "RAM:Archives/" #ThesaurusName))
  1490.             )
  1491.             (
  1492.                 (set #FileSourceName #ThesaurusSourceName)
  1493.                 (set #FileSourceDisk #Install3Disk)
  1494.                 (@GetDisk)
  1495.             )
  1496.         )
  1497.  
  1498.         (working #DearchivingThesmsg)
  1499.  
  1500.         (set UnpackFile #FileSourceName)
  1501.         (set UnpackDest (cat #ThesDest "/" ))
  1502.         (@UnpackFiles)
  1503.  
  1504.         (if (= FloppyInstall 1)
  1505.             (run (cat "delete RAM:Archives/" #ThesaurusName) (safe))
  1506.         )
  1507.   )
  1508. )
  1509.  
  1510.  
  1511. ;** Routine to preserve text files (Librarian, UserDictionary, AutoCorrect)
  1512. (procedure @PreserveTextFiles
  1513.     (
  1514.         (@SetupDestinationsHD)
  1515.         (if (exists (tackon #InsideHDDest #OldAutoCorrectName))
  1516.             (
  1517.                 (set #OldAutoCorrect (tackon #InsideHDDest #OldAutoCorrectName))
  1518.                 (set #TempAutoCorrect (cat #InsideHDDest "/" #TempAutoCorrectName))
  1519.                 (rename #OldAutoCorrect #TempAutoCorrect)
  1520.             )
  1521.         )
  1522.         (if (exists (tackon #HDDictDest #OldUserDictName))
  1523.             (
  1524.                 (set #OldUserDict (tackon #HDDictDest #OldUserDictName))
  1525.                 (set #TempUserDict (tackon #HDDictDest #TempUserDictName))
  1526.                 (rename #OldUserDict #TempUserDict)
  1527.             )
  1528.         )
  1529.         (set #TextPreservedFlag 1)
  1530.     )
  1531. )
  1532.  
  1533. ;** Routine to retrieve old text files
  1534. (procedure @RetrieveOldTextFiles
  1535.     (
  1536.         (if (exists (tackon #InsideHDDest #TempAutoCorrectName))
  1537.             (
  1538.                 (set #OldAutoCorrect (tackon #InsideHDDest #OldAutoCorrectName))
  1539.                 (set #TempAutoCorrect (cat #InsideHDDest "/" #TempAutoCorrectName))
  1540.                 (delete #OldAutoCorrect
  1541.                     (optional "force")
  1542.                 )
  1543.                 (rename #TempAutoCorrect #OldAutoCorrect)
  1544.             )
  1545.         )
  1546.         (if (exists (tackon #HDDictDest #TempUserDictName))
  1547.             (
  1548.                 (set #OldUserDict (tackon #HDDictDest #OldUserDictName))
  1549.                 (set #TempUserDict (cat #HDDictDest "/" #TempUserDictName))
  1550.                 (delete #OldUserDict
  1551.                     (optional "force")
  1552.                 )
  1553.                 (rename #TempUserDict #OldUserDict)
  1554.             )
  1555.         )
  1556.     )
  1557. )
  1558.  
  1559.  
  1560. ;** This routine will delete the modules drawer
  1561. (procedure @DeleteOldWordworth3
  1562.     (
  1563.         (working #DeleteOldmsg)
  1564.         (set ChosenDrawer (tackon #DestDrawer (cat #DrawerName "/" #ModulesName)))
  1565.         (set DeleteDrawer (cat "delete " ChosenDrawer " all force"))
  1566.         (Run DeleteDrawer)
  1567.     )
  1568. )
  1569.  
  1570.  
  1571. ;------------------------------------------------------
  1572. ;// Check to make sure that none of the Wordworth disks
  1573. ;// are in the internal drive before creating blank ones.
  1574. (procedure @CheckDisks
  1575.     (
  1576.         (set #NumberDisks (+ #NumberInstallDisks #NumNewWwDisks))
  1577.         (set #DiskBlank 1)
  1578.         (set n 0)
  1579.         (until (OR (= n #NumberDisks) (= #DiskBlank 0))
  1580.             (
  1581.                 (set #CheckDiskName
  1582.                     (select n
  1583.                         #Install1Disk
  1584.                         #Install2Disk
  1585.                         #Install3Disk
  1586.                         #NewWwDiskName
  1587.                         #NewWwSysDiskName
  1588.                         #NewWwOutlinesDiskName
  1589.                         #NewWwDictDiskName
  1590.                     )
  1591.                 )
  1592.                 (if (= (getassign "df0" "d") (cat #CheckDiskName ":"))
  1593.                     (    ;disk is not blank
  1594.                         (set #DiskBlank 0)
  1595.                     )
  1596.                 )
  1597.                 (set n (+ n 1))
  1598.             )
  1599.         )
  1600.     )
  1601. )
  1602.  
  1603. ;------------------------------------------------------
  1604. ;// Check to make sure that none of the German Wordworth disks
  1605. ;// are in the internal drive before creating blank ones.
  1606. (procedure @CheckDisks_GER
  1607.     (
  1608.         (set #NumberDisks (+ #NumberInstallDisks #NumNewWwDisks))
  1609.         (set #DiskBlank 1)
  1610.         (set n 0)
  1611.         (until (OR (= n #NumberDisks) (= #DiskBlank 0))
  1612.             (
  1613.                 (set #CheckDiskName
  1614.                     (select n
  1615.                         #Install1Disk
  1616.                         #Install2Disk
  1617.                         #Install3Disk
  1618.                         #NewWwDiskName
  1619.                         #NewWwSysDiskName
  1620.                         #NewWwOutlinesDiskName
  1621.                         #NewWwDictDiskName
  1622.                         #NewWwThesDiskName
  1623.                     )
  1624.                 )
  1625.                 (if (= (getassign "df0" "d") (cat #CheckDiskName ":"))
  1626.                     (    ;disk is not blank
  1627.                         (set #DiskBlank 0)
  1628.                     )
  1629.                 )
  1630.                 (set n (+ n 1))
  1631.             )
  1632.         )
  1633.     )
  1634. )
  1635.  
  1636.  
  1637. ;------------------------------------------------------
  1638. ;// Format and name the disk given in #FormatDiskName
  1639. (procedure @FormatDisk
  1640.     (
  1641.         (working #FormatWorkingMsg)
  1642.         ;*** USE 2.0 FORMAT COMMAND ***
  1643.         (if (= #FormatChoice 0)
  1644.             (
  1645.                 (set #FormatCheck
  1646.                     (run ("Format drive=df0: name=%s FFS NOICONS" #FormatDiskName))
  1647.                 )
  1648.             )
  1649.             (
  1650.                 (set #FormatCheck
  1651.                     (run ("Format drive=df0: name=%s FFS QUICK NOICONS" #FormatDiskName))
  1652.                 )
  1653.             )
  1654.         )
  1655.  
  1656.         (if (OR (> #FormatCheck 0) (< #FormatCheck 0))
  1657.             (set #NoError 1)
  1658.             (set #NoError 0)
  1659.         )
  1660.     
  1661.         (if (= #NoError 0)
  1662.             (
  1663.                 (if (= #FormatDiskName #NewWwDiskName)
  1664.                     (run "Install2.1 df0:")
  1665.                     (run "resident Install2.1 REMOVE")
  1666.                 )
  1667.             )
  1668.         ); endif
  1669.     )
  1670. )
  1671.  
  1672. ;------------------------------------------------------
  1673. ;// routine to check disk in drive ok and format it if so
  1674. (procedure @Makedisk
  1675.     (
  1676.         (set #NoError 1)
  1677.         (while (= #NoError 1)
  1678.             (
  1679.                 ;** Make sure that the install disks are not in the drive
  1680.                 (run "Wait 6")  ;Wait a bit for disk access to stop
  1681.  
  1682.                 (if (= @language "deutsch")
  1683.                     (
  1684.                         (@CheckDisks_GER)
  1685.                     )
  1686.                     (
  1687.                         (@Checkdisks)
  1688.                     )
  1689.                 )
  1690.  
  1691.                 (if (= #DiskBlank 0)
  1692.                     (
  1693.                         (message #NotBlankMsg1 #CheckDiskName #NotBlankMsg2)
  1694.                     )
  1695.                     (
  1696.                         ;** Else for each disk in turn, Format it
  1697.                         (if (= @language "deutsch")
  1698.                             (
  1699.                                 (set #FormatDiskName
  1700.                                     (select x
  1701.                                         #NewWwDiskName
  1702.                                         #NewWwSysDiskName
  1703.                                         #NewWwOutlinesDiskName
  1704.                                         #NewWwDictDiskName
  1705.                                         #NewWwThesDiskName
  1706.                                     )
  1707.                                 )
  1708.                             )
  1709.                             (
  1710.                                 (set #FormatDiskName
  1711.                                     (select x
  1712.                                         #NewWwDiskName
  1713.                                         #NewWwSysDiskName
  1714.                                         #NewWwOutlinesDiskName
  1715.                                         #NewWwDictDiskName
  1716.                                     )
  1717.                                 )
  1718.                             )
  1719.                         )
  1720.  
  1721.                             (set #NoError 1)
  1722.                             (@FormatDisk)
  1723.                             (if (= #NoError 1)
  1724.                                   (
  1725.                                     (message #FormatError (help #FormatErrorHelp))
  1726.                                   )
  1727.                             );endif
  1728.                       )
  1729.                     );endif
  1730.                 )
  1731.         );endwhile
  1732.     )
  1733. )
  1734.  
  1735.  
  1736. ;** routine to make disk 1 (Wordworth4SE)
  1737. (procedure @CreateDisk1
  1738.     (
  1739.         ;** USE INSTALL DISK 1 and copy archives to RAM:
  1740.         (set #FileSourceDisk #Install1Disk)
  1741.         (@GetDisk)
  1742.  
  1743.         (set UnpackFileDisk (cat #Install1Disk ":Archive"))
  1744.         (@CopyArchives)
  1745.  
  1746.         (if (= @language "deutsch")
  1747.             (
  1748.                 (copyfiles
  1749.                     (source (cat #Install1Disk ":" #LocaleName))
  1750.                     (dest (cat "RAM:" #LocaleName))
  1751.                     (all)
  1752.                     (optional "force")
  1753.                     )
  1754.  
  1755.                 ;** delete the utilities.catalog 'cos it's not needed on floppy
  1756.                 (delete
  1757.                     (cat "RAM:" #LocaleName "/catalogs/" Language "/sys/utilities.catalog")
  1758.                     (optional "force")
  1759.                 )
  1760.             )
  1761.         )
  1762.  
  1763.         (copyfiles
  1764.             (source (cat #Install1Disk ":Libs"))
  1765.             (dest "RAM:Libs")
  1766.             (all)
  1767.             (optional "force")
  1768.         )
  1769.  
  1770.         (copyfiles
  1771.             (source (cat #Install1Disk ":Devs"))    ;copy devs from install disk
  1772.             (dest "RAM:Devs")
  1773.             (all)
  1774.             (optional "force")
  1775.         )
  1776.  
  1777.         (copyfiles                    ;copy env-archive from install disk
  1778.             (source (cat #Install1Disk ":prefs/env-archive/sys"))
  1779.             (dest "RAM:env-archive")
  1780.             (all)
  1781.             (optional "force")
  1782.         )
  1783.  
  1784.         (copyfiles                    ;copy startup-seq
  1785.             (source (cat #Install1Disk ":Archive/Boot"))
  1786.             (dest "RAM:S")
  1787.             (pattern "startup-sequence")
  1788.             (optional "force")
  1789.         )
  1790.  
  1791.  
  1792.         ;** CREATE DISK
  1793.         (set x 0)
  1794.         (message #BlankDiskWarning)
  1795.         (@makedisk)
  1796.  
  1797.         (set #FileSourceDisk #NewWwDiskName)
  1798.         (@GetDisk)
  1799.         (working #Creatingmsg #NewWwDiskName)
  1800.  
  1801.         (makedir #CatalogsLangDest)
  1802.         (makedir #CatalogsDest)
  1803.         (makedir #LibsDest)
  1804.         (makedir #ModulesDest (infos))
  1805.         (makedir #ModDisDest (infos))
  1806.         (makedir #WwDevsDest)
  1807.         (makedir #WwPrefsDest)
  1808.         (makedir #WwEnvArcDest)
  1809.         (makedir #WwEnvArcSysDest)
  1810.         (makedir #WwSDest)
  1811.  
  1812.  
  1813.     ;** Now dearchive files to NewWwDisk
  1814.     (if (= @language "deutsch")
  1815.         (
  1816.             (makedir #LocaleDest)
  1817.             (copyfiles
  1818.                 (source (cat "RAM:" #LocaleName))
  1819.                 (dest (cat #NewWwDiskName ":" #LocaleName))
  1820.                 (all)
  1821.                 (optional "force")
  1822.                 (nogauge)
  1823.             )
  1824.                 (run (cat "delete RAM:" #LocaleName " all") (safe))
  1825.         )
  1826.     )
  1827.  
  1828.     (copyfiles
  1829.         (source "RAM:Libs")    ;copy libs from ram
  1830.         (dest (cat #NewWwDiskName ":Libs"))
  1831.         (all)
  1832.         (optional "force")
  1833.     )
  1834.         (run "delete RAM:Libs all" (safe))
  1835.  
  1836.     (copyfiles
  1837.       (source "RAM:Devs")                    ;copy devs from ram
  1838.       (dest (cat #NewWwDiskName ":Devs"))
  1839.       (all)
  1840.       (optional "force")
  1841.     )
  1842.         (run "delete RAM:Devs all" (safe))
  1843.  
  1844.     (copyfiles                            ;copy env-archive from ram
  1845.       (source "RAM:Env-Archive")
  1846.       (dest (cat #NewWwDiskName ":prefs/env-archive/sys"))
  1847.       (all)
  1848.       (optional "force")
  1849.     )
  1850.         (run "delete RAM:Env-Archive all" (safe))
  1851.  
  1852.     (copyfiles                            ;copy startup-seq from ram
  1853.       (source "RAM:s")
  1854.       (dest (cat #NewWwDiskName ":s"))
  1855.       (pattern "startup-sequence")
  1856.       (optional "force")
  1857.     )
  1858.         (run "delete RAM:S all" (safe))
  1859.  
  1860.  
  1861.         (set UnpackFile (cat "RAM:Archives/" #WordworthName))    ;unpack start stub
  1862.         (set UnpackDest (cat #NewWwDiskName ":"))
  1863.         (@UnpackFiles)
  1864.  
  1865.         (set UnpackFile (cat "RAM:Archives/" #AmigaGuideName)) ;unpack amigaguide.lib
  1866.         (set UnpackDest (cat #LibsDest "/"))
  1867.         (@UnpackFiles)
  1868.  
  1869.     (set UnpackFile (cat "RAM:Archives/" #ASLName))                ;unpack asl
  1870.     (set UnpackDest (cat #LibsDest "/"))
  1871.     (@UnpackFiles)
  1872.  
  1873.     (set UnpackFile (cat "RAM:Archives/" #SystemFontsName))    ;unpack sysfonts
  1874.     (set UnpackDest (cat #SysFontsDest "/"))
  1875.     (@UnpackFiles)
  1876.  
  1877.     (set UnpackFile (cat "RAM:Archives/" #CatalogsName))    ;unpack catalogs
  1878.     (set UnpackDest (cat #CatalogsDest "/"))
  1879.     (@UnpackFiles)
  1880.  
  1881.     (set UnpackFile "RAM:Archives/Boot/system.lha")
  1882.     (set UnpackDest (cat #NewWwDiskName ":"))
  1883.     (@UnpackFiles)
  1884.  
  1885.     (set UnpackFile "RAM:Archives/Boot/c.lha")
  1886.     (set UnpackDest (cat #NewWwDiskName ":"))
  1887.     (@UnpackFiles)
  1888.  
  1889.     (set UnpackFile "RAM:Archives/Boot/libs.lha")
  1890.     (set UnpackDest (cat #NewWwDiskName ":"))
  1891.     (@UnpackFiles)
  1892.  
  1893.     (set UnpackFile "RAM:Archives/Boot/devs.lha")
  1894.     (set UnpackDest (cat #NewWwDiskName ":"))
  1895.     (@UnpackFiles)
  1896.  
  1897.     (set UnpackFile "RAM:Archives/Boot/l.lha")
  1898.     (set UnpackDest (cat #NewWwDiskName ":"))
  1899.     (@UnpackFiles)
  1900.  
  1901.       (@DearchiveModules)                                        ; Draw Tools, Picture & TxtFX
  1902.  
  1903.         (set UnpackFile (cat "RAM:Archives/" #WwFiles1Name))        ;all WWfiles minus WWSpell.lib
  1904.         (set UnpackDest (cat #WwFilesDest "/"))
  1905.         (@UnpackFiles)
  1906.  
  1907.         (set UnpackFile (cat "RAM:Archives/" #WwFiles3Name))        ;toolbar icons
  1908.         (set UnpackDest (cat #WwFilesDest "/"))
  1909.         (@UnpackFiles)
  1910.  
  1911.     (set UnpackFile (cat "RAM:Archives/" #FontType1Name))        ;unpack Intellifont.lib
  1912.       (set UnpackDest (cat #LibsDest "/"))
  1913.       (@UnpackFiles)
  1914.  
  1915.         (tooltype
  1916.             (dest #WwToolDest)
  1917.             (settooltype #DocsTool #DocsDest)
  1918.         )
  1919.         (tooltype
  1920.             (dest #WwToolDest)
  1921.             (settooltype #ClipartTool #ClipartDest)
  1922.         )
  1923.         (tooltype
  1924.             (dest #WwToolDest)
  1925.             (settooltype #DeviceTool #Parallel)
  1926.         )
  1927.         (tooltype
  1928.             (dest #WwToolDest)
  1929.             (settooltype #FiltersTool #WwFiltersDest)
  1930.         )
  1931.         (tooltype
  1932.             (dest #WwToolDest)
  1933.             (settooltype #ModulesTool #ModulesDest)
  1934.         )
  1935.         (tooltype
  1936.             (dest #WwToolDest)
  1937.             (settooltype #HelpTool #WwHelpDest)
  1938.         )
  1939.         (tooltype
  1940.             (dest #WwToolDest)
  1941.             (settooltype #CatalogsTool #CatalogsLangDest)
  1942.         )
  1943.         (tooltype
  1944.             (dest #WwToolDest)
  1945.             (settooltype #WwFilesTool #WwFilesDest)
  1946.         )
  1947.         (tooltype
  1948.             (dest #WwToolDest)
  1949.             (settooltype #WwSpellLibTool #WwFiles2Dest)
  1950.         )
  1951.         (set #WwSystemDest (cat #NewWwSysDiskName ":"))
  1952.         (tooltype
  1953.             (dest #WwToolDest)
  1954.             (settooltype #WwSystemTool #WwSystemDest)
  1955.         )
  1956.  
  1957.   ;** Check ENVARC: for Wordworth/wwfonts, creating it if it does not exist
  1958.     (set #WwEnvDrawer (cat #NewWwDiskName ":prefs/env-archive/Wordworth"))
  1959.     (if (NOT (exists #WwEnvDrawer))
  1960.       (makedir #WwEnvDrawer (safe))
  1961.     )
  1962.     ;setup Wordworth path
  1963.     ( ;create 'wwfonts' variable with #WwFontsDest in it
  1964.       (textfile
  1965.         (dest (cat #WwEnvDrawer "/WwFonts"))
  1966.         (append #WwFontsDest)
  1967.         (safe)
  1968.       )
  1969.     )
  1970.   ;do the same for ENV:
  1971.     (set #WwEnvDrawer (cat "RAM:ENV/Wordworth"))
  1972.     (if (NOT (exists #WwEnvDrawer))
  1973.       (makedir #WwEnvDrawer (safe))
  1974.     )
  1975.     ( ;create 'WwFonts' variable with #WwFontsDest in it
  1976.       (textfile
  1977.         (dest (cat #WwEnvDrawer "/WwFonts"))
  1978.         (append #WwFontsDest)
  1979.         (safe)
  1980.       )
  1981.     )
  1982.  
  1983.          (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  1984.         (run "delete RAM:Archives/~(Clipart.lha) all force")
  1985.     )
  1986. )
  1987.  
  1988.  
  1989. ;** routine to make disk 2 (Ww4SESystem)
  1990. (procedure @CreateDisk2
  1991.     (
  1992.     ;** USE INSTALL DISK 2
  1993.         (set #FileSourceDisk #Install2Disk)
  1994.         (@GetDisk)
  1995.     (copyfiles
  1996.         (source (cat #Install2Disk ":Archive"))
  1997.         (dest "RAM:Archives")
  1998.         (pattern ("~(Tutorials.lha|Templates.lha|CGM.lha|Filters.lha|UFST.lha|Intelli.lha|Otags.lha)"))
  1999.         (optional "force")
  2000.         (safe)
  2001.     )
  2002.  
  2003.     ;** CREATE DISK
  2004.         (set x 1)
  2005.     (message #BlankDiskWarning)
  2006.        (@makedisk)
  2007.  
  2008.     (set #FileSourceDisk #NewWwSysDiskName)
  2009.     (@GetDisk)
  2010.  
  2011.         (working #Creatingmsg #NewWwSysDiskName)
  2012.  
  2013.     (makedir #WwFiles2Dest)
  2014.     (makedir #WwToolsDest (infos))
  2015.  
  2016.  
  2017.     ;** Now dearchive files to NewWwSysDisk
  2018.         (set UnpackFile (cat "RAM:Archives/" #WwProgName))        ;WWProg tool
  2019.         (set UnpackDest (cat #NewWWSysDiskName ":"))
  2020.         (@UnpackFiles)
  2021.  
  2022.         (set UnpackFile (cat "RAM:Archives/" #WwFiles2Name))    ;WWSpell.library
  2023.         (set UnpackDest (cat #WwFiles2Dest "/"))
  2024.         (@UnpackFiles)
  2025.  
  2026.         (set UnpackFile (cat "RAM:Archives/" #WwToolsName))        ;WwTools stuff
  2027.         (set UnpackDest (cat #WwToolsDest "/"))
  2028.         (@UnpackFiles)
  2029.  
  2030.          (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  2031.         (run "delete RAM:Archives/~(Clipart.lha) all force")
  2032.     )
  2033. )
  2034.  
  2035. ;** routine to make disk 3 (Ww4SEOutlines)
  2036. (procedure @CreateDisk3
  2037.     (
  2038.         ;** USE INSTALL DISK 2
  2039.         (set #FileSourceDisk #Install2Disk)
  2040.         (@GetDisk)
  2041.         (copyfiles
  2042.             (source (cat #Install2Disk ":Archive"))
  2043.             (dest "RAM:Archives")
  2044.             (pattern ("(Tutorials.lha|Templates.lha|CGM.lha|Filters.lha|UFST.lha|Intelli.lha|Otags.lha)"))
  2045.             (optional "force")
  2046.             (safe)
  2047.         )
  2048.   
  2049.         ;** USE INSTALL DISK 3
  2050.         (set #FileSourceDisk #Install3Disk)
  2051.         (@GetDisk)
  2052.         (copyfiles
  2053.             (source (cat #Install3Disk ":Archive"))
  2054.             (dest "RAM:Archives")
  2055.             (pattern "WwHelp.lha")
  2056.             (optional "force")
  2057.             (safe)
  2058.         )
  2059.  
  2060.         ;** CREATE DISK
  2061.         (set x 2)
  2062.         (message #BlankDiskWarning)
  2063.          (@makedisk)
  2064.  
  2065.         (set #FileSourceDisk #NewWwOutlinesDiskName)
  2066.         (@GetDisk)
  2067.  
  2068.         (working #Creatingmsg #NewWwOutlinesDiskName)
  2069.  
  2070.         (makedir #WwFontsDestOutlines (infos))
  2071.         (makedir #DocsDest (infos))
  2072.         (makedir #TemplatesDest (infos))
  2073.         (makedir #WwFontsDest)
  2074.         (makedir #WwAgfaDest (infos))
  2075.         (makedir #WwHelpDest)
  2076.         (makedir #WwPSDest)
  2077.         (makedir #WwTTDest)
  2078.         (makedir #WwFiltersDest)
  2079.         (makedir #WwFilterLibDest)
  2080.         (makedir #WwPictureFiltersDest)
  2081.         (makedir #ClipartDest (infos))
  2082.  
  2083.         ;** Now dearchive files to NewWwOutlinesDisk
  2084.         (@DearchiveTutorials)
  2085.         (@DearchiveTemplates)
  2086.         (@DearchiveGfxFilters)                                ; Only CGM
  2087.         (@DearchiveClipArt)
  2088.  
  2089.         (set UnPackFile (cat "RAM:Archives/" #FiltersName))            ;Filter.library
  2090.         (set UnPackDest (cat #WwFilterLibDest "/"))
  2091.         (@UnpackFiles)
  2092.  
  2093.         (set UnPackFile (cat "RAM:Archives/" #WwHelpName))
  2094.         (set UnpackDest (cat #WwHelpDest "/"))
  2095.         (@UnpackFiles)
  2096.  
  2097.         (set UnpackFile (cat "RAM:Archives/" #UFSTName))
  2098.         (set UnpackDest (cat #WwUFSTDest "/"))
  2099.         (@UnpackFiles)
  2100.  
  2101.         (set UnpackFile (cat "RAM:Archives/" #IntelliName))
  2102.         (set UnpackDest (cat #WwAgfaDest "/"))
  2103.         (@UnpackFiles)
  2104.  
  2105.         (set UnpackFile (cat "RAM:Archives/" #FloppyOtagsName))
  2106.         (set UnpackDest (cat #WwUFSTDest "/"))
  2107.         (@UnpackFiles)
  2108.  
  2109.         (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  2110.         (run "delete RAM:Archives/#? all force")
  2111.     )
  2112. )
  2113.  
  2114. ;** routine to make disk 4 (Ww4SESpell)
  2115. (procedure @CreateDisk4
  2116.     (
  2117.     ;** USE INSTALL DISK 3
  2118.     (set #FileSourceDisk #Install3Disk)
  2119.     (@GetDisk)
  2120.  
  2121.   (if (<> @language "deutsch")
  2122.   (
  2123.       (set UnpackFileDisk (cat #Install3Disk ":Archive"))
  2124.         (@CopyArchives)
  2125.     )
  2126.     (
  2127.         (copyfiles
  2128.             (source (cat #Install3Disk ":Archive"))
  2129.             (dest "RAM:Archives")
  2130.             (pattern ("~(Thesaurus.lha)"))
  2131.             (optional "force")
  2132.             (safe)
  2133.         )
  2134.     )
  2135.     )
  2136.  
  2137.     ;** CREATE DISK
  2138.         (set x 3)
  2139.     (message #BlankDiskWarning)
  2140.        (@makedisk)
  2141.  
  2142.     (set #FileSourceDisk #NewWwDictDiskName)
  2143.     (@GetDisk)
  2144.  
  2145.     (working #Creatingmsg #NewWwDictDiskName)
  2146.  
  2147.     (makedir #DictDest (infos))
  2148.  
  2149.     ;** Now dearchive files to NewWwSpellDisk
  2150.     (@DearchiveSpell)
  2151.  
  2152.     (if (<> @language "deutsch")
  2153.         (
  2154.         (@DearchiveThes)
  2155.     )
  2156.     )
  2157.  
  2158.          (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsgLast))
  2159.         (run "delete RAM:Archives/#? all force")
  2160.  
  2161.     )
  2162. )
  2163.  
  2164. ;** routine to make disk 5 (Ww4SEThes) for Germans!
  2165. (procedure @CreateDisk5
  2166.     (
  2167.     ;** USE INSTALL DISK 3
  2168.         (set #FileSourceDisk #Install3Disk)
  2169.         (@GetDisk)
  2170.  
  2171.     (copyfiles
  2172.         (source (cat #Install3Disk ":Archive"))
  2173.         (dest "RAM:Archives")
  2174.         (pattern ("(Thesaurus.lha)"))
  2175.         (optional "force")
  2176.         (safe)
  2177.     )
  2178.  
  2179.     ;** CREATE DISK
  2180.         (set x 4)
  2181.     (message #BlankDiskWarning)
  2182.        (@makedisk)
  2183.  
  2184.     (set #FileSourceDisk #NewWwThesDiskName)
  2185.     (@GetDisk)
  2186.  
  2187.     (working #Creatingmsg #NewWwThesDiskName)
  2188.  
  2189.     (makedir #ThesDest (infos))
  2190.  
  2191.  
  2192.     ;** Now dearchive files to NewWwThesDisk
  2193.      (@DearchiveThes)
  2194.  
  2195.      (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsgLast))
  2196.     (run "delete RAM:Archives/#? all force")
  2197.     )
  2198. )
  2199.  
  2200. ;** Check that ASL library is at least version 2.1 (if not replace)
  2201. (procedure @CheckASL
  2202.     (
  2203.         (set ASLVersion (/ (getversion (cat #LibsDefault ":ASL.library")) 65536))
  2204.         (if (< ASLVersion 38)
  2205.             (
  2206.         (if (= @user-level 2)
  2207.             (
  2208.                 (set InstallASLLibrary
  2209.                   (askbool
  2210.                        (prompt #OldASLLibraryMsg)
  2211.                        (choices #InstallLibChoice1 #InstallLibChoice2)
  2212.                        (help #OldASLLibraryHelp)
  2213.                        (default 1)
  2214.                   )
  2215.                     )
  2216.                 (if (= InstallASLLibrary 1)
  2217.                      (
  2218.                        (@InstallASL)
  2219.                        (set ASLOK 1)
  2220.                   )
  2221.                       (
  2222.                               (set ASLOK 0)
  2223.                 )
  2224.                 ) ;end if
  2225.               )
  2226.               (
  2227.                   (@InstallASL)
  2228.                   (set ASLOK 1)
  2229.               )
  2230.             ) ;end if
  2231.           )
  2232.           (; else
  2233.               (set ASLOK 1)
  2234.           )
  2235.         ) ;endif
  2236.     )
  2237. )
  2238.  
  2239.  
  2240. ;** Check that AmigaGuide library is at least version 34.11 (if not replace)
  2241. (procedure @CheckAmigaGuide
  2242.     (
  2243.         (set AmigaGuideVersion (/ (getversion (cat #LibsDefault ":amigaguide.library")) 65536))
  2244.             (if (< AmigaGuideVersion 35)
  2245.             (
  2246.         (if (= @user-level 2)
  2247.             (
  2248.                 (set InstallAmigaGuideLibrary
  2249.                   (askbool
  2250.                        (prompt #OldAmigaGuideLibraryMsg)
  2251.                        (choices #InstallLibChoice1 #InstallLibChoice2)
  2252.                        (help #OldAmigaGuideLibraryHelp)
  2253.                        (default 1)
  2254.                   )
  2255.                     )
  2256.                 (if (= InstallAmigaGuideLibrary 1)
  2257.                      (
  2258.                        (@DearchiveAmigaGuide)
  2259.                   )
  2260.                 );end if
  2261.               )
  2262.               (
  2263.                   (@DearchiveAmigaGuide)
  2264.               )
  2265.             ) ;end if
  2266.           )
  2267.         ) ;endif
  2268.     )
  2269. )
  2270.  
  2271.  
  2272. ;** Procedure to install the asl library
  2273. (procedure @InstallASL
  2274.     (
  2275.     (set #FileSourceName #ASLSourceName)
  2276.     (set #FileSourceDisk #Install1Disk)
  2277.     (@GetDisk)
  2278.  
  2279.     (set UnpackFile #FileSourceName)
  2280.     (set UnpackDest (cat #LibsDefault ":"))
  2281.         (delete (tackon UnpackDest "asl.library"))
  2282.     (@UnpackFiles)
  2283.     )
  2284. )
  2285.  
  2286.  
  2287. ;** Check that diskfont library is at least version 2.1 (if not replace)
  2288. (procedure @CheckDiskFont
  2289.     (
  2290.         (set InstalledDiskFont 0)
  2291.         (set DiskFontVersion (/ (getversion (cat #LibsDefault ":diskfont.library")) 65536))
  2292.         (if (< DiskFontVersion 37)
  2293.             (
  2294.                 (if (= @user-level 2)
  2295.                     (
  2296.                         (set InstallDiskFontLibrary
  2297.                             (askbool
  2298.                                 (prompt #OldDiskFontLibraryMsg)
  2299.                                 (choices #InstallLibChoice1 #InstallLibChoice2)
  2300.                                 (help #OldDiskFontLibraryHelp)
  2301.                                 (default 1)
  2302.                             )
  2303.                         )
  2304.  
  2305.                         (if (= InstallDiskFontLibrary 1)
  2306.                             (
  2307.                                 (@InstallDiskFont)
  2308.                                 (set DiskFontOK 1)
  2309.                             )
  2310.                               (
  2311.                                   (set DiskFontOK 0)
  2312.                             )
  2313.                         ) ;end if
  2314.                       )
  2315.                       (
  2316.                           (@InstallDiskFont)
  2317.                           (set DiskFontOK 1)
  2318.                       )
  2319.                 ) ;end if
  2320.             )
  2321.             (; else
  2322.                 (set DiskFontOK 1)
  2323.             )
  2324.         ) ;endif
  2325.     )
  2326. )
  2327.  
  2328. ;** Procedure to install the diskfont library
  2329. (procedure @InstallDiskFont
  2330.     (
  2331.         (set #FileSourceName #DiskFontSourceName)
  2332.         (set #FileSourceDisk #Install1Disk)
  2333.         (@GetDisk)
  2334.  
  2335.         (set UnpackFile #FileSourceName)
  2336.         (set UnpackDest (cat #LibsDefault ":"))
  2337.         (delete (tackon UnpackDest "diskfont.library"))
  2338.         (@UnpackFiles)
  2339.  
  2340.         (set InstalledDiskFont 1)
  2341.     )
  2342. )
  2343.  
  2344. ;## Routine to install printer and fonts
  2345. (procedure @AddNewPrinter
  2346.     (
  2347.         ; Copy stuff to RAM first
  2348.         ;(askdisk
  2349.         ;    (prompt #InsertDiskMsg #Install3Disk)
  2350.         ;    (help #diskhelp)
  2351.         ;    (dest #Install3Disk)
  2352.         ;)
  2353.         (copyfiles
  2354.             (source (cat #Install3Disk ":Utils"))
  2355.             (dest "RAM:")
  2356.             (pattern "Writeprefs3")
  2357.             (nogauge)
  2358.             (optional "nofail")
  2359.         )
  2360.         (copyfiles
  2361.             (source (cat #Install3Disk ":Utils"))
  2362.             (dest "RAM:")
  2363.             (pattern "select")
  2364.             (nogauge)
  2365.             (optional "nofail")
  2366.         )
  2367.         (copyfiles
  2368.             (source (cat #Install3Disk ":Utils"))
  2369.             (dest "RAM:")
  2370.             (pattern "WwPrinterList")
  2371.             (nogauge)
  2372.             (optional "nofail")
  2373.         )
  2374.  
  2375.         ;** Delete all in #RamTempFile
  2376.         (delete (cat #RamTempFile " all"))
  2377.  
  2378.         (set ChosenDriver "Generic")
  2379.  
  2380.         (set #DriverSource (cat #Install3Disk ":Drivers"))
  2381.  
  2382.         (if (= FloppyInstall 1)
  2383.              (
  2384.                 ;** FloppyDiskDriverDest
  2385.                 (set #DriverDest (cat #NewWwDiskName ":Devs/Printers"))
  2386.             )
  2387.             (
  2388.                 ;** HardDiskDriverDest
  2389.                 (set #DriverDest "DEVS:Printers")
  2390.                 (set #CheckGeneric (cat #DriverDest "/" ChosenDriver))
  2391.                 (if (exists #CheckGeneric)
  2392.                     (
  2393.                         (protect #CheckGeneric "+r+w+e+d")
  2394.                     )
  2395.                 )
  2396.             )
  2397.         )
  2398.  
  2399.         (working #WorkingPrintermsg)
  2400.         (set SelectPrt
  2401.             (cat "Ram:select Ram:WwPrinterList")
  2402.         )
  2403.  
  2404.         (run SelectPrt (safe))
  2405.  
  2406.         (set ChosenDriver (getenv "wwDriver"))
  2407.         (set TopBord (getenv "wwTop"))
  2408.         (set BotBord (getenv "wwBottom"))
  2409.         (set LeftBord (getenv "wwLeft"))
  2410.         (set RightBord (getenv "wwRight"))
  2411.  
  2412.         (complete 85)
  2413.  
  2414.         ;(askdisk
  2415.         ;    (prompt #InsertDiskMsg #Install3Disk)
  2416.         ;    (help #diskhelp)
  2417.         ;    (dest #Install3Disk)
  2418.         ;)
  2419.  
  2420.         (working #WorkingPrintermsg)
  2421.  
  2422.         (copyfiles                                ; copy driver to ram
  2423.             (source #DriverSource)
  2424.             (dest #RamTempFile)
  2425.             (pattern ChosenDriver)
  2426.             (optional "force")
  2427.             (nogauge)
  2428.         )
  2429.  
  2430.         ;Now decompress Driver 'ChosenDriver' to destination '#RamTempFile'
  2431.         (working #Unpackmsg4)
  2432.         (set ExpandName (tackon #RamTempFile ChosenDriver))
  2433.  
  2434.         (set #ArchiveError 0)
  2435.         (set RunLHA
  2436.             (cat "LHA e \"" ExpandName "\" \"" #RamTempFile "/\"")
  2437.         )
  2438.  
  2439.         (set #ArchiveError (run RunLHA))
  2440.  
  2441.         (if (> #ArchiveError 0)
  2442.             (
  2443.                 (set #ArchiveAbortMsg (cat #ArchiveAbortMsg1 ExpandName #ArchiveAbortMsg2))
  2444.                 (abort #ArchiveAbortMsg)
  2445.             )
  2446.         )
  2447.  
  2448.         (delete ExpandName)
  2449.  
  2450.         (run "List " #RamTempFile " LFORMAT %s >ENV:wwDriver")
  2451.         (run "resident list REMOVE")                     ;remove resident List
  2452.  
  2453.         (if (= @pretend 1)
  2454.             (
  2455.                 (Run "setenv wwDriver Generic.lha" (safe))
  2456.             )
  2457.         )
  2458.  
  2459.         (set Driver (getenv "wwDriver"))
  2460.         (set DriverLen (strlen Driver))
  2461.         (set DriverLen (- DriverLen 1))
  2462.  
  2463.         (set ChosenDriver
  2464.             (substr Driver 0 DriverLen)
  2465.         )
  2466.  
  2467.         (if (= FloppyInstall 1)
  2468.             (
  2469.                 (askdisk
  2470.                     (prompt #InsertDiskMsg #NewWwDiskName)
  2471.                     (help #diskhelp)
  2472.                     (dest #NewWwDiskName)
  2473.                 )
  2474.             )
  2475.         )
  2476.  
  2477.         (copyfiles
  2478.             (source #RamTempFile)
  2479.             (dest #DriverDest)
  2480.             (pattern ChosenDriver)
  2481.             (optional "force")
  2482.         )
  2483.  
  2484.         (set #Drivermsg 1) ; Flag to display driver message at end of installation
  2485.     )
  2486. )
  2487.  
  2488.  
  2489. (procedure @InstallWwFonts
  2490.     (
  2491.         (if (= #UserNovice 1)
  2492.             (user 0)
  2493.         )
  2494.  
  2495.         (if (= #InstallationType "Wordworth")
  2496.             (
  2497.                 (working #InstallingFontsmsg)
  2498.                 (execute "RAM:FontScript")
  2499.                 (delete "RAM:FontScript")
  2500.  
  2501.               (if (exists #BulletOutlinesDest)
  2502.                   (
  2503.                       (
  2504.                             (set #InstallBO
  2505.                                 (askbool
  2506.                                     (prompt #InstallBOPrompt)
  2507.                                     (choices #InstallBOChoice1 #InstallBOChoice2)
  2508.                                     (help #InstallBOPrompt-Help)
  2509.                                     (default 1)
  2510.                                 )
  2511.                             )
  2512.                             (if (= #InstallBO 1)
  2513.                                 (
  2514.                                     (working #InstallingFontsmsg)
  2515.                                     (execute "RAM:FontScript2")
  2516.                                     (delete "RAM:FontScript2")
  2517.                                 )
  2518.                             )
  2519.                         )
  2520.                     )
  2521.                 ); end if
  2522.               (set #OldWordworthSEDrawer (cat #DestDrawer "/" #WordworthSEDrawerName))
  2523.               (set #OldWordworth2Drawer (cat #DestDrawer "/" #Wordworth2DrawerName))
  2524.               (if (OR (exists #OldWordworthSEDrawer) (exists #OldWordworth2Drawer))
  2525.                   (message #InstallOldWordworthFontsmsg)
  2526.               )
  2527.                 (delete "RAM:InstallOutlines")
  2528.             )
  2529.         )
  2530.     )
  2531. )
  2532.  
  2533.  
  2534. ;####### BEGINNING OF MAIN ROUTINE
  2535. ;** Initial Checks
  2536.  
  2537. ;** Check OS version
  2538. (if (< (/ (getversion) 65536) 37)
  2539.     (abort #BadKick)
  2540. )
  2541.  
  2542. (set #Drivermsg 0)
  2543. (set #InstallationType (getenv "Wordworth/install"))
  2544.  
  2545. (welcome)
  2546.  
  2547. (working #CheckStartup)
  2548.  
  2549. ;** Create temp file in ram: for files
  2550. (if (not (exists #RamTempFile))
  2551.     (
  2552.         (makedir #RamTempFile (safe))
  2553.     )
  2554. )
  2555.  
  2556. (set #EnvArcDest (getassign "ENVARC" "a"))
  2557.  
  2558. ;** Make sure there is an Env-Archive directory and logical assign
  2559. (if (= #EnvArcDest "")
  2560.     (
  2561.         (set envdisk "SYS:Env-Archive")
  2562.         (if (NOT (exists envdisk))
  2563.             (
  2564.                 (set envdisk "SYS:Prefs/Env-Archive")
  2565.                 (if (NOT (exists envdisk))
  2566.                     (
  2567.                         (makedir envdisk)
  2568.                         (if (> @user-level 1)
  2569.                             (
  2570.                                 (set envdisk
  2571.                                     (askdir
  2572.                                         (prompt #AskEnvArc)
  2573.                                         (help #AskEnvArcHelp)
  2574.                                         (default envdisk)
  2575.                                     )
  2576.                                 )
  2577.                             )
  2578.                         )
  2579.                     )
  2580.                 )
  2581.             )
  2582.         )
  2583.  
  2584.         ;** Create ENVARC assign in user-startup
  2585.         (startup "Env-Archive"
  2586.             (prompt #AskEnvArcStartup)
  2587.             (help #AskStartupArcHelp )
  2588.             (command ("Assign >NIL: ENVARC: %s" envdisk))
  2589.         )
  2590.         (makeassign "ENVARC" envdisk (safe))
  2591.         (set #EnvArcDest envdisk)
  2592.     )
  2593. )
  2594.  
  2595. (set #EnvDest (getassign "ENV" "a"))
  2596.  
  2597. ;** Make sure there is an ENV directory and logical assign
  2598. (if (= #EnvDest "")
  2599.     (
  2600.         (set envdisk "RAM:ENV")
  2601.         (if (NOT (exists envdisk))
  2602.             (makedir envdisk)
  2603.         )
  2604.  
  2605.         ;** Create ENV: assign in user-startup
  2606.         (startup "Ram:ENV"
  2607.             (prompt #AskEnvStartup)
  2608.             (help #AskEnvStartupHelp )
  2609.             (command ("Assign >NIL: ENV: %s\n" envdisk) "c:Copy >NIL: ENVARC: ENV: ALL NOREQ")
  2610.         )
  2611.         (makeassign "ENV" envdisk (safe))
  2612.         (set #EnvDest envdisk)
  2613.     )
  2614. )
  2615.  
  2616. (set #FileSourceDisk #Install1Disk)
  2617. (@GetDisk)
  2618.  
  2619. (run (cat "resident " #Install1Disk ":Utils/Format"))      ;make Format resident
  2620. (run (cat "resident " #Install1Disk ":Utils/Wait"))       ;make Wait resident
  2621. (run (cat "resident " #Install1Disk ":Utils/LHA"))       ;make LHA resident
  2622. (run (cat "resident " #Install1Disk ":Utils/Install2.1")) ;make Install resident
  2623.  
  2624. (run (cat "resident " #Install1Disk ":c/list"))       ;make list resident
  2625. (run (cat "resident " #Install1Disk ":c/delete"))       ;make delete resident
  2626.  
  2627. (set #FullPath (expandpath "sys:"))
  2628. (if (= #FullPath (cat #Install1Disk ":"))
  2629.     (set #DiskDefault 1)
  2630.     (set #DiskDefault 0)
  2631. )
  2632.  
  2633.  
  2634. (if (= #InstallationType "Printer")
  2635.     (
  2636.         (if
  2637.             (askchoice
  2638.                 (prompt #DestChoicePrinterPrompt)
  2639.                 (choices #HardDiskChoiceMsg #FloppyChoiceMsg)
  2640.                 (help #DestChoicePrinterHelp)
  2641.                 (default #DiskDefault)
  2642.             )
  2643.             (set FloppyInstall 1)
  2644.             (set FloppyInstall 0)
  2645.         )
  2646.         (@AddNewPrinter)
  2647.     )
  2648.     (
  2649.  
  2650.         ; ### START OF MAIN INSTALLATION
  2651.         ;** set novice user to expert briefly
  2652.         (set #UserNovice 0)
  2653.         (if (= @user-level 0)
  2654.             (
  2655.                 (user 2)
  2656.                 (set #UserNovice 1)
  2657.             )
  2658.         )
  2659.  
  2660.         (if
  2661.             (askchoice
  2662.                 (prompt #DestChoicePrompt)
  2663.                 (choices #HardDiskChoiceMsg #FloppyChoiceMsg)
  2664.                 (help #DestChoiceHelp)
  2665.                 (default #DiskDefault)
  2666.             )
  2667.  
  2668.             ; ### INSTALL ON FLOPPIES
  2669.             (
  2670.                 (set FloppyInstall 1)
  2671.                 ;** set novice user back to novice
  2672.                 (if (= #UserNovice 1)
  2673.                     (user 0)
  2674.                 )
  2675.  
  2676.                 (working #FloppyDiskWorkingMsg)
  2677.  
  2678.                 (@SetFloppyDiskDestinations)
  2679.  
  2680.                 (if (>= @user-level 2) ;expert only
  2681.                     (
  2682.                         (set #FormatChoice
  2683.                             (askchoice
  2684.                                 (prompt #FormatChoiceprompt)
  2685.                                 (choices #FormatChoicemsg1 #FormatChoicemsg2)
  2686.                                 (help #FormatChoice-help)
  2687.                                 (default 0)
  2688.                             )
  2689.                         )
  2690.                     )
  2691.                 )
  2692.  
  2693.                 (if (= @user-level 0)
  2694.                     (
  2695.                         (user 2)    ;** Set Novice to Expert level
  2696.                             (set #UserNovice 1)
  2697.                     )
  2698.                 )
  2699.  
  2700.                 (complete 10)
  2701.  
  2702.                 (message (cat #FloppyBackupsMsg)
  2703.                     (help #FloppyWarningHelp)
  2704.                 )
  2705.  
  2706.  
  2707.                 (makedir "RAM:Archives")
  2708.  
  2709.                 (if (= #UserNovice 1)
  2710.                     (
  2711.                         (user 0)    ;** Set back to Novice level
  2712.                     )
  2713.                 )
  2714.  
  2715.  
  2716.                 ;// if expert then check user wants to create disk 1
  2717.                 (if (>= @user-level 2)
  2718.                     (
  2719.                         (set #CreateDiskChoice
  2720.                             (askbool
  2721.                                 (prompt (cat #CreateDiskPrompt1 #NewWwDiskName #CreateDiskPrompt2))
  2722.                                 (choices #ChoiceContinue #ChoiceSkip)
  2723.                                 (help #CreateDiskHelp)
  2724.                                 (default 1)
  2725.                             )
  2726.                         )
  2727.                     )
  2728.                     (set #CreateDiskChoice 1)
  2729.                 )
  2730.  
  2731.                 (if (= @user-level 0)
  2732.                     (
  2733.                         (user 2)    ;** Set Novice to Expert level
  2734.                         (set #UserNovice 1)
  2735.                     )
  2736.                 )
  2737.  
  2738.                 (if (= #CreateDiskChoice 1)
  2739.                     (@CreateDisk1)
  2740.                 )
  2741.  
  2742.                 (complete 20)
  2743.  
  2744.                 (if (= #UserNovice 1)
  2745.                     (
  2746.                         (user 0)    ;** Set back to Novice level
  2747.                     )
  2748.                 )
  2749.  
  2750.                 ;// if expert then check user wants to create disk 2
  2751.                 (if (>= @user-level 2)
  2752.                     (
  2753.                         (set #CreateDiskChoice
  2754.                             (askbool
  2755.                                 (prompt (cat #CreateDiskPrompt1 #NewWwSysDiskName #CreateDiskPrompt2))
  2756.                                 (choices #ChoiceContinue #ChoiceSkip)
  2757.                                 (help #CreateDiskHelp)
  2758.                                 (default 1)
  2759.                             )
  2760.                         )
  2761.                     )
  2762.                     (set #CreateDiskChoice 1)
  2763.                 )
  2764.  
  2765.                 (if (= @user-level 0)
  2766.                     (
  2767.                         (user 2)    ;** Set Novice to Expert level
  2768.                         (set #UserNovice 1)
  2769.                     )
  2770.                 )
  2771.  
  2772.                 (if (= #CreateDiskChoice 1)
  2773.                     (@CreateDisk2)
  2774.                 )
  2775.  
  2776.                 (complete 35)
  2777.  
  2778.                 (if (= #UserNovice 1)
  2779.                     (
  2780.                         (user 0)    ;** Set back to Novice level
  2781.                     )
  2782.                 )
  2783.  
  2784.                 ;// if expert then check user wants to create disk 3
  2785.                 (if (>= @user-level 2)
  2786.                     (
  2787.                         (set #CreateDiskChoice
  2788.                             (askbool
  2789.                                 (prompt (cat #CreateDiskPrompt1 #NewWwOutlinesDiskName #CreateDiskPrompt2))
  2790.                                 (choices #ChoiceContinue #ChoiceSkip)
  2791.                                 (help #CreateDiskHelp)
  2792.                                 (default 1)
  2793.                             )
  2794.                         )
  2795.                     )
  2796.                     (set #CreateDiskChoice 1)
  2797.                 )
  2798.  
  2799.                 (if (= @user-level 0)
  2800.                     (
  2801.                         (user 2)    ;** Set Novice to Expert level
  2802.                         (set #UserNovice 1)
  2803.                     )
  2804.                 )
  2805.  
  2806.                 (if (= #CreateDiskChoice 1)
  2807.                     (@CreateDisk3)
  2808.                 )
  2809.  
  2810.                 (complete 55)
  2811.  
  2812.                 (if (= #UserNovice 1)
  2813.                     (
  2814.                         (user 0)    ;** Set back to Novice level
  2815.                     )
  2816.                 )
  2817.  
  2818.                 ;// if expert then check user wants to create disk 4
  2819.                 (if (>= @user-level 2)
  2820.                     (
  2821.                         (set #CreateDiskChoice
  2822.                             (askbool
  2823.                                 (prompt (cat #CreateDiskPrompt1 #NewWwDictDiskName #CreateDiskPrompt2))
  2824.                                 (choices #ChoiceContinue #ChoiceSkip)
  2825.                                 (help #CreateDiskHelp)
  2826.                                 (default 1)
  2827.                             )
  2828.                         )
  2829.                     )
  2830.                     (set #CreateDiskChoice 1)
  2831.                 )
  2832.  
  2833.                 (if (= @user-level 0)
  2834.                     (
  2835.                             (user 2)    ;** Set Novice to Expert level
  2836.                             (set #UserNovice 1)
  2837.                     )
  2838.                 )
  2839.  
  2840.                 (if (= #CreateDiskChoice 1)
  2841.                     (@CreateDisk4)
  2842.                 )
  2843.  
  2844.                 (complete 80)
  2845.  
  2846.                 (if (= @language "deutsch")
  2847.                     (
  2848.                         (if (= #UserNovice 1)
  2849.                             (
  2850.                                 (user 0)  ;** Set back to Novice level
  2851.                             )
  2852.                         )
  2853.  
  2854.                         ;// if German expert then check user wants to create disk 5
  2855.                         (if (>= @user-level 2)
  2856.                             (
  2857.                                 (set #CreateDiskChoice
  2858.                                     (askbool
  2859.                                         (prompt (cat #CreateDiskPrompt1 #NewWwThesDiskName #CreateDiskPrompt2))
  2860.                                         (choices #ChoiceContinue #ChoiceSkip)
  2861.                                         (help #CreateDiskHelp)
  2862.                                         (default 1)
  2863.                                     )
  2864.                                 )
  2865.                             )
  2866.                             (set #CreateDiskChoice 1)
  2867.                         )
  2868.  
  2869.                         (if (= @user-level 0)
  2870.                             (
  2871.                                     (user 2)  ;** Set Novice to Expert level
  2872.                                 (set #UserNovice 1)
  2873.                             )
  2874.                         )
  2875.  
  2876.                         (if (= #CreateDiskChoice 1)
  2877.                             (@CreateDisk5)
  2878.                         )
  2879.                     )
  2880.                 )
  2881.  
  2882.  
  2883.                 ;** set novice user back to novice
  2884.                 (if (= #UserNovice 1)
  2885.                     (user 0)
  2886.                 )
  2887.  
  2888.                 (set FloppyFinished 1)
  2889.                 (set @default-dest "")
  2890.  
  2891.                 (@AddNewPrinter)
  2892.  
  2893.                 (complete 90)
  2894.                 (working #Installingmsg1)
  2895.  
  2896.                 ;** Lets set the WordworthPrefs file
  2897.                 (set #PrefsDest (cat #NewWwDiskName ":WordworthPrefs"))
  2898.  
  2899.                 (run (cat "RAM:writeprefs3 \"" #PrefsDest "\" \"" #DictDest "\" \"" #ThesDest "\" \"" ChosenDriver "\" \"" TopBord "\" \"" BotBord "\" \"" LeftBord "\" \"" RightBord "\" \"" #TemplatesDest "\""))
  2900.             )
  2901.  
  2902.  
  2903.  
  2904.             ; ### INSTALL ON HARD DISK
  2905.  
  2906.             (
  2907.                 (if (= #FullPath (cat #Install1Disk ":"))
  2908.                     (Abort #HDBootedFromFloppy)
  2909.                 )
  2910.  
  2911.                 (set ASLOK 0)
  2912.                 (set DiskFontOK 0)
  2913.                 (set #TextPreservedFlag 0)
  2914.  
  2915.                 ;** set novice user back to novice
  2916.                 (if (= #UserNovice 1)
  2917.                     (user 0)
  2918.                 )
  2919.  
  2920.                 (@CheckDiskFont)
  2921.                 (@CheckASL)
  2922.  
  2923.                 (if (AND (= ASLOK 1) (= DiskFontOK 1))
  2924.                     (
  2925.                         (working #HardDiskWorkingMsg)
  2926.                         ;set amount of disk space needed in bytes
  2927.                         (set HDSpaceNeededBytes (* (* FullHDSpace 1024) 1024))
  2928.                         (set TotalFontLibSpace FullHDLibsSpace)
  2929.  
  2930.                         (@FindHDDest)              ;ask for destination drawer
  2931.                         (@SetHardDiskDestinations)
  2932.                         (@DearchiveCustomModulesHD) ;install all modules
  2933.  
  2934.                         (set @default-dest #DestDrawer)
  2935.                     )
  2936.                     (
  2937.                         (if (AND (= ASLOK 0) (= DiskFontOK 0))
  2938.                             (
  2939.                                 (abort #BadASLandDiskFont)
  2940.                             )
  2941.                         )
  2942.                         (if (= ASLOK 0)
  2943.                             (
  2944.                                 (abort #BadASL)
  2945.                             )
  2946.                             (
  2947.                                 (abort #BadDiskFont)
  2948.                             )
  2949.                         )
  2950.                     )
  2951.                 ); endif
  2952.  
  2953.                 (if (= #TextPreservedFlag 1)
  2954.                     (
  2955.                         (@RetrieveOldTextFiles)
  2956.                     )
  2957.                 )
  2958.  
  2959.                 ;** Check env for Wordworth/wwfonts, creating it if it does not exist
  2960.                 (set #WwEnvArcDest (cat #EnvArcDest "/" #WwDrawerName))
  2961.                 (if (NOT (exists (#WwEnvArcDest)))
  2962.                     (makedir #WwEnvArcDest (safe))
  2963.                 )
  2964.  
  2965.                 ;setup Wordworth path
  2966.                 ( ;create 'wwfonts' variable with #HDWwFontsDest in it
  2967.                     (textfile
  2968.                         (dest (cat #WwEnvArcDest "/" #WwFontsEnvName))
  2969.                         (append #HDWwFontsDest)
  2970.                         (safe)
  2971.                     )
  2972.                 )
  2973.  
  2974.                 ;do the same for env:
  2975.                 (set #WwEnvDest (cat #EnvDest "/" #WwDrawerName))
  2976.                 (if (NOT (exists (#WwEnvDest)))
  2977.                     (makedir #WwEnvDest (safe))
  2978.                 )
  2979.                 (;create 'WwFonts' variable with #HDWwFontsDest in it
  2980.                     (textfile
  2981.                         (dest (cat #WwEnvDest "/" #WwFontsEnvName))
  2982.                         (append #HDWwFontsDest)
  2983.                         (safe)
  2984.                     )
  2985.                 )
  2986.  
  2987.                 (tooltype
  2988.                     (dest (cat #InsideHDDest "/Wordworth"))
  2989.                     (settooltype "CLIPART" #ClipartDest)
  2990.                 )
  2991.                 (tooltype
  2992.                     (dest (cat #InsideHDDest "/Wordworth"))
  2993.                     (settooltype "DOCS" #DocsDest)
  2994.                 )
  2995.  
  2996.                 (set InstallPicasso
  2997.                     (askbool
  2998.                         (prompt #InstallPicassoMsg)
  2999.                         (choices #InstallPicassoYes #InstallPicassoNo)
  3000.                         (help #InstallPicassoHelp)
  3001.                         (default 0)
  3002.                     )
  3003.                 )
  3004.                 (if (= InstallPicasso 1)
  3005.                     (  ;yes
  3006.                         (tooltype
  3007.                             (dest (cat #InsideHDDest "/Wordworth"))
  3008.                             (settooltype "PICASSO" "TRUE")
  3009.                         )
  3010.                     )
  3011.                     (  ;else
  3012.                         (tooltype
  3013.                             (dest (cat #InsideHDDest "/Wordworth"))
  3014.                             (settooltype "(PICASSO" "TRUE)")
  3015.                         )
  3016.                     )
  3017.                 );end if
  3018.  
  3019.                 (copyfiles
  3020.                     (source #HDWwToolsDest)                                        ;Copy `InstallOutlines'
  3021.                     (dest "RAM:")                                                            ;to RAM for later on
  3022.                     (pattern "InstallOutlines")
  3023.                     (nogauge)
  3024.                     (optional "nofail")
  3025.                 )
  3026.  
  3027.                 (@AddNewPrinter)
  3028.                 (complete 85)
  3029.                 (@InstallWwFonts)
  3030.                 (complete 90)
  3031.  
  3032.                 (working (cat "Installing " #ProgName " - Please wait..."))
  3033.  
  3034.                 ; Lets set the WordworthPrefs file
  3035.                 (set #PrefsDest (tackon #InsideHDDest "WordworthPrefs"))
  3036.                 (run (cat "RAM:writeprefs3 \"" #PrefsDest "\" \"" #DictDest "\" \"" #ThesDest "\" \"" ChosenDriver "\" \"" TopBord "\" \"" BotBord "\" \"" LeftBord "\" \"" RightBord "\" \"" #TemplatesDest "\""))
  3037.             )
  3038.         )
  3039.     )
  3040. )
  3041.  
  3042. ;More Cleanup
  3043. (run "delete Ram:WwTemp force all")
  3044. (run "delete Ram:Select")
  3045. (run "delete Ram:Writeprefs3")
  3046. (run "delete Ram:WwPrinterList")
  3047. (run "delete Ram:fontscript#?")
  3048. (if (exists "Ram:Archives")
  3049.     (
  3050.         (run "delete Ram:Archives force all")
  3051.     )
  3052. )
  3053.  
  3054. (complete 100)
  3055.  
  3056. (if (= #InstallationType "Printer")
  3057.     (
  3058.         (message #InstallationCompletemsg #DriverUsedmsg1 ChosenDriver #DriverUsedmsg2)
  3059.         (exit (quiet))
  3060.     )
  3061. )
  3062.  
  3063. (if (= FloppyFinished 1)
  3064.     (
  3065.         (if (= #Drivermsg 1)
  3066.             (
  3067.                 (exit #FloppyFinishedMsg #DriverUsedmsg1 ChosenDriver #DriverUsedmsg2)
  3068.             )
  3069.             (
  3070.                 (exit #FloppyFinishedMsg)
  3071.             )
  3072.         )
  3073.     )
  3074.     (
  3075.         (if (= #Drivermsg 1)
  3076.             (
  3077.                 (exit #ReBoot #DriverUsedmsg1 ChosenDriver #DriverUsedmsg2)
  3078.             )
  3079.             (
  3080.                 (exit #ReBoot)
  3081.             )
  3082.         )
  3083.     )
  3084. )
  3085.